certik

certik@pn1935394:~$ julia
               _
   _       _ _(_)_     |  Documentation: https://docs.julialang.org
  (_)     | (_) (_)    |
   _ _   _| |_  __ _   |  Type "?" for help, "]?" for Pkg help.
  | | | | | | |/ _` |  |
  | | |_| | | | (_| |  |  Version 1.2.0 (2019-08-20)
 _/ |\__'_|_|_|\__'_|  |  Official https://julialang.org/ release
|__/                   |

certik

#ifndef LFORTRAN_AST_H
#define LFORTRAN_AST_H

// Generated by grammar/asdl_cpp.py

#include <lfortran/parser/alloc.h>
#include <lfortran/parser/location.h>
#include <lfortran/casts.h>
#include <lfortran/colors.h>
#include <lfortran/exception.h>

certik

# -*- coding: utf-8 -*-

from sympy import *
from matchpy import *
from sympy.integrals.rubi.utility_function import *
from sympy.integrals.rubi.constraints import *
# from sympy.integrals.rubi.symbol import *
from matchpy.matching.many_to_one import CommutativeMatcher
from collections import deque

certik

Compile and run using:

$ g++ -Wall -O3 -march=native -funroll-loops bench.cpp move.cpp && ./a.out 
1
1705032704
4034ms
2
1705032704
3466ms

certik

{
 "cells": [
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "# What is the difference between an AST and ASR?\n",
    "\n",
    "Let us take a simple Fortran code:\n",
    "```fortran\n",

certik

program exceptions
implicit none
integer :: s, stat_manual
integer, status :: stat

call mysum(5, s, stat_manual)
if (stat_manual /= 0) error stop
print *, s

! Equivalent to the above

certik

program exceptions
implicit none
integer :: s, stat

call mysum(5, s, stat)
if (stat /= 0) error stop
print *, s

! Equivalent to the above
try mysum(5, s, stat)

certik

program exceptions
implicit none
integer :: s, stat

call mysum(5, s, stat)
if (stat /= 0) error stop
print *, s

call mysum(5, s)
print *, s

certik

{
 "cells": [
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## Installation\n",
    "\n",
    "Install `xeus-cling`:\n",
    "\n",

certik

In file included from input_line_7:1:
/home/certik/ext/miniconda3/envs/cling/bin/../lib/gcc/../../gcc/include/c++/variant:238:46: error: cannot cast 'std::variant<int, float>' to its private base class
      'std::__detail::__variant::_Variant_storage<true, int, float>'
      return __get(std::in_place_index<_Np>, std::forward<_Variant>(__v)._M_u);
                                             ^
/home/certik/ext/miniconda3/envs/cling/bin/../lib/gcc/../../gcc/include/c++/variant:1198:35: note: in instantiation of function template specialization
      'std::__detail::__variant::__get<0, std::variant<int, float> &>' requested
      here
      return __detail::__variant::__get<_Np>(__v);
                                  ^