Revert "Revert "Merge branch 'arrays' into 'master'""

This reverts commit d98a3b2.

.gitignore

@@ -45,6 +45,8 @@ CPackSourceConfig.cmake
 ## libraries
 *.a
 *.so
+*.s
+*.ll
 
 ## Generated files
 version

integration_tests/CMakeLists.txt

@@ -126,7 +126,7 @@ RUN(NAME types_06 LABELS gfortran llvm cpp)
 # GFortran + LFortran C++
 RUN(NAME doconcurrentloop_01 LABELS gfortran cpp)
 
-RUN(NAME arrays_01 LABELS gfortran cpp)
+RUN(NAME arrays_01 LABELS gfortran cpp llvm)
 RUN(NAME arrays_03 LABELS gfortran cpp)
 RUN(NAME arrays_04 LABELS gfortran cpp)
 RUN(NAME arrays_05 LABELS gfortran cpp)

tests/reference/asr-arrays_01-5f1c776.json

@@ -0,0 +1,13 @@
+{
+    "basename": "asr-arrays_01-5f1c776",
+    "cmd": "lfortran --show-asr --no-color {infile} -o {outfile}",
+    "infile": "tests/../integration_tests/arrays_01.f90",
+    "infile_hash": "f7df4142feb383f836dfa072a60673922e8873b5695f893be8329b89",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "asr-arrays_01-5f1c776.stdout",
+    "stdout_hash": "bdcb5a64ee0c0f7be2f798e0815faadeaad99523d1d1bbfb880caa4d",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}

tests/reference/asr-arrays_01-5f1c776.stdout

@@ -0,0 +1 @@
+(TranslationUnit (SymbolTable 1 {arrays_01: (Program (SymbolTable 2 {a: (Variable 2 a Local () Default (Integer 4 [((ConstantInteger 1 (Integer 4 [])) (ConstantInteger 3 (Integer 4 [])))]) Source Public), b: (Variable 2 b Local () Default (Integer 4 [((ConstantInteger 1 (Integer 4 [])) (ConstantInteger 4 (Integer 4 [])))]) Source Public), i: (Variable 2 i Local () Default (Integer 4 []) Source Public)}) arrays_01 [] [(DoLoop ((Var 2 i) (ConstantInteger 1 (Integer 4 [])) (ConstantInteger 3 (Integer 4 [])) ()) [(= (ArrayRef 2 a [(() (Var 2 i) ())] (Integer 4 [((ConstantInteger 1 (Integer 4 [])) (ConstantInteger 3 (Integer 4 [])))])) (BinOp (Var 2 i) Add (ConstantInteger 10 (Integer 4 [])) (Integer 4 [])))]) (If (Compare (ArrayRef 2 a [(() (ConstantInteger 1 (Integer 4 [])) ())] (Integer 4 [((ConstantInteger 1 (Integer 4 [])) (ConstantInteger 3 (Integer 4 [])))])) NotEq (ConstantInteger 11 (Integer 4 [])) (Logical 4 [])) [(ErrorStop ())] []) (If (Compare (ArrayRef 2 a [(() (ConstantInteger 2 (Integer 4 [])) ())] (Integer 4 [((ConstantInteger 1 (Integer 4 [])) (ConstantInteger 3 (Integer 4 [])))])) NotEq (ConstantInteger 12 (Integer 4 [])) (Logical 4 [])) [(ErrorStop ())] []) (If (Compare (ArrayRef 2 a [(() (ConstantInteger 3 (Integer 4 [])) ())] (Integer 4 [((ConstantInteger 1 (Integer 4 [])) (ConstantInteger 3 (Integer 4 [])))])) NotEq (ConstantInteger 13 (Integer 4 [])) (Logical 4 [])) [(ErrorStop ())] []) (DoLoop ((Var 2 i) (ConstantInteger 11 (Integer 4 [])) (ConstantInteger 14 (Integer 4 [])) ()) [(= (ArrayRef 2 b [(() (BinOp (Var 2 i) Sub (ConstantInteger 10 (Integer 4 [])) (Integer 4 [])) ())] (Integer 4 [((ConstantInteger 1 (Integer 4 [])) (ConstantInteger 4 (Integer 4 [])))])) (Var 2 i))]) (If (Compare (ArrayRef 2 b [(() (ConstantInteger 1 (Integer 4 [])) ())] (Integer 4 [((ConstantInteger 1 (Integer 4 [])) (ConstantInteger 4 (Integer 4 [])))])) NotEq (ConstantInteger 11 (Integer 4 [])) (Logical 4 [])) [(ErrorStop ())] []) (If (Compare (ArrayRef 2 b [(() (ConstantInteger 2 (Integer 4 [])) ())] (Integer 4 [((ConstantInteger 1 (Integer 4 [])) (ConstantInteger 4 (Integer 4 [])))])) NotEq (ConstantInteger 12 (Integer 4 [])) (Logical 4 [])) [(ErrorStop ())] []) (If (Compare (ArrayRef 2 b [(() (ConstantInteger 3 (Integer 4 [])) ())] (Integer 4 [((ConstantInteger 1 (Integer 4 [])) (ConstantInteger 4 (Integer 4 [])))])) NotEq (ConstantInteger 13 (Integer 4 [])) (Logical 4 [])) [(ErrorStop ())] []) (If (Compare (ArrayRef 2 b [(() (ConstantInteger 4 (Integer 4 [])) ())] (Integer 4 [((ConstantInteger 1 (Integer 4 [])) (ConstantInteger 4 (Integer 4 [])))])) NotEq (ConstantInteger 14 (Integer 4 [])) (Logical 4 [])) [(ErrorStop ())] []) (DoLoop ((Var 2 i) (ConstantInteger 1 (Integer 4 [])) (ConstantInteger 3 (Integer 4 [])) ()) [(= (ArrayRef 2 b [(() (Var 2 i) ())] (Integer 4 [((ConstantInteger 1 (Integer 4 [])) (ConstantInteger 4 (Integer 4 [])))])) (BinOp (ArrayRef 2 a [(() (Var 2 i) ())] (Integer 4 [((ConstantInteger 1 (Integer 4 [])) (ConstantInteger 3 (Integer 4 [])))])) Sub (ConstantInteger 10 (Integer 4 [])) (Integer 4 [((ConstantInteger 1 (Integer 4 [])) (ConstantInteger 3 (Integer 4 [])))])))]) (If (Compare (ArrayRef 2 b [(() (ConstantInteger 1 (Integer 4 [])) ())] (Integer 4 [((ConstantInteger 1 (Integer 4 [])) (ConstantInteger 4 (Integer 4 [])))])) NotEq (ConstantInteger 1 (Integer 4 [])) (Logical 4 [])) [(ErrorStop ())] []) (If (Compare (ArrayRef 2 b [(() (ConstantInteger 2 (Integer 4 [])) ())] (Integer 4 [((ConstantInteger 1 (Integer 4 [])) (ConstantInteger 4 (Integer 4 [])))])) NotEq (ConstantInteger 2 (Integer 4 [])) (Logical 4 [])) [(ErrorStop ())] []) (If (Compare (ArrayRef 2 b [(() (ConstantInteger 3 (Integer 4 [])) ())] (Integer 4 [((ConstantInteger 1 (Integer 4 [])) (ConstantInteger 4 (Integer 4 [])))])) NotEq (ConstantInteger 3 (Integer 4 [])) (Logical 4 [])) [(ErrorStop ())] []) (= (ArrayRef 2 b [(() (ConstantInteger 4 (Integer 4 [])) ())] (Integer 4 [((ConstantInteger 1 (Integer 4 [])) (ConstantInteger 4 (Integer 4 [])))])) (BinOp (BinOp (BinOp (ArrayRef 2 b [(() (ConstantInteger 1 (Integer 4 [])) ())] (Integer 4 [((ConstantInteger 1 (Integer 4 [])) (ConstantInteger 4 (Integer 4 [])))])) Add (ArrayRef 2 b [(() (ConstantInteger 2 (Integer 4 [])) ())] (Integer 4 [((ConstantInteger 1 (Integer 4 [])) (ConstantInteger 4 (Integer 4 [])))])) (Integer 4 [((ConstantInteger 1 (Integer 4 [])) (ConstantInteger 4 (Integer 4 [])))])) Add (ArrayRef 2 b [(() (ConstantInteger 3 (Integer 4 [])) ())] (Integer 4 [((ConstantInteger 1 (Integer 4 [])) (ConstantInteger 4 (Integer 4 [])))])) (Integer 4 [((ConstantInteger 1 (Integer 4 [])) (ConstantInteger 4 (Integer 4 [])))])) Add (ArrayRef 2 a [(() (ConstantInteger 1 (Integer 4 [])) ())] (Integer 4 [((ConstantInteger 1 (Integer 4 [])) (ConstantInteger 3 (Integer 4 [])))])) (Integer 4 [((ConstantInteger 1 (Integer 4 [])) (ConstantInteger 4 (Integer 4 [])))]))) (If (Compare (ArrayRef 2 b [(() (ConstantInteger 4 (Integer 4 [])) ())] (Integer 4 [((ConstantInteger 1 (Integer 4 [])) (ConstantInteger 4 (Integer 4 [])))])) NotEq (ConstantInteger 17 (Integer 4 [])) (Logical 4 [])) [(ErrorStop ())] []) (= (ArrayRef 2 b [(() (ConstantInteger 4 (Integer 4 [])) ())] (Integer 4 [((ConstantInteger 1 (Integer 4 [])) (ConstantInteger 4 (Integer 4 [])))])) (ArrayRef 2 a [(() (ConstantInteger 1 (Integer 4 [])) ())] (Integer 4 [((ConstantInteger 1 (Integer 4 [])) (ConstantInteger 3 (Integer 4 [])))]))) (If (Compare (ArrayRef 2 b [(() (ConstantInteger 4 (Integer 4 [])) ())] (Integer 4 [((ConstantInteger 1 (Integer 4 [])) (ConstantInteger 4 (Integer 4 [])))])) NotEq (ConstantInteger 11 (Integer 4 [])) (Logical 4 [])) [(ErrorStop ())] [])])}) [])

tests/reference/llvm-arrays_01-84fd69c.json

@@ -0,0 +1,13 @@
+{
+    "basename": "llvm-arrays_01-84fd69c",
+    "cmd": "lfortran --show-llvm {infile} -o {outfile}",
+    "infile": "tests/../integration_tests/arrays_01.f90",
+    "infile_hash": "f7df4142feb383f836dfa072a60673922e8873b5695f893be8329b89",
+    "outfile": null,
+    "outfile_hash": null,
+    "stdout": "llvm-arrays_01-84fd69c.stdout",
+    "stdout_hash": "eacbc76610060445e868abaaffc9aaf9861ac76fc67062913b2f1ac8",
+    "stderr": null,
+    "stderr_hash": null,
+    "returncode": 0
+}