tests: Pass

angeles-ricardo-89 · Aug 12, 2021 · 1438fbc · 1438fbc
1 parent d7bf991
commit 1438fbc
Show file tree

Hide file tree

Showing 86 changed files with 1,831 additions and 1,711 deletions.
diff --git a/tests/reference/asr-allocate_01-f3446f6.json b/tests/reference/asr-allocate_01-f3446f6.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-allocate_01-f3446f6.stdout",
-    "stdout_hash": "db51ea323a9a641e064efc0c938d1ebcc8d213e9d6fb3abe1fbe5c5d",
+    "stdout_hash": "14a83ffe7842ea41f5c5f39c1a233c9992a70ac6d497f818fa9ae1ef",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0

diff --git a/tests/reference/asr-allocate_01-f3446f6.stdout b/tests/reference/asr-allocate_01-f3446f6.stdout
diff --git a/tests/reference/asr-allocate_02-3c0d7c8.json b/tests/reference/asr-allocate_02-3c0d7c8.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-allocate_02-3c0d7c8.stdout",
-    "stdout_hash": "620407207062f362d1048cfeb16c9201e8e0b2fc05c1647d6b872d61",
+    "stdout_hash": "a83a81a7ab1d675f67d7306b6f3e312161c4a0c64219dbcde72767c0",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0

diff --git a/tests/reference/asr-allocate_02-3c0d7c8.stdout b/tests/reference/asr-allocate_02-3c0d7c8.stdout
@@ -1 +1 @@
-(TranslationUnit (SymbolTable 1 {allocate_01: (Program (SymbolTable 2 {a: (Variable 2 a Local () () Allocatable (Integer 4 [(() ())]) Source Public Required), b: (Variable 2 b Local () () Allocatable (Integer 4 [(() ())]) Source Public Required), c: (Variable 2 c Local () () Allocatable (Integer 4 [(() ())]) Source Public Required), ierr: (Variable 2 ierr Local () () Default (Integer 4 []) Source Public Required), n: (Variable 2 n Local () () Default (Integer 4 []) Source Public Required), whole_square: (Function (SymbolTable 3 {a: (Variable 3 a Unspecified () () Allocatable (Integer 4 [(() ())]) Source Public Required), a_2: (Variable 3 a_2 Local () () Allocatable (Integer 4 [(() ())]) Source Public Required), ab: (Variable 3 ab Local () () Allocatable (Integer 4 [(() ())]) Source Public Required), abc: (Variable 3 abc Local () () Allocatable (Integer 4 [(() ())]) Source Public Required), b: (Variable 3 b Unspecified () () Allocatable (Integer 4 [(() ())]) Source Public Required), b_2: (Variable 3 b_2 Local () () Allocatable (Integer 4 [(() ())]) Source Public Required), bc: (Variable 3 bc Local () () Allocatable (Integer 4 [(() ())]) Source Public Required), c: (Variable 3 c Unspecified () () Allocatable (Integer 4 [(() ())]) Source Public Required), c_2: (Variable 3 c_2 Local () () Allocatable (Integer 4 [(() ())]) Source Public Required), ca: (Variable 3 ca Local () () Allocatable (Integer 4 [(() ())]) Source Public Required), n: (Variable 3 n Local () () Default (Integer 4 []) Source Public Required), size: (ExternalSymbol 3 size 5 size lfortran_intrinsic_array size Private), status: (Variable 3 status ReturnVar () () Default (Integer 4 []) Source Public Required)}) whole_square [(Var 3 a) (Var 3 b) (Var 3 c)] [(= (Var 3 n) (FunctionCall 3 size () [(Var 3 a)] [] (Integer 4 []) () ())) (Allocate [(3 a_2 [((ConstantInteger 1 (Integer 4 [])) (Var 3 n))]) (3 b_2 [((ConstantInteger 1 (Integer 4 [])) (Var 3 n))]) (3 c_2 [((ConstantInteger 1 (Integer 4 [])) (Var 3 n))])] ()) (Allocate [(3 ab [((ConstantInteger 1 (Integer 4 [])) (Var 3 n))]) (3 bc [((ConstantInteger 1 (Integer 4 [])) (Var 3 n))]) (3 ca [((ConstantInteger 1 (Integer 4 [])) (Var 3 n))]) (3 abc [((ConstantInteger 1 (Integer 4 [])) (Var 3 n))])] ()) (= (Var 3 status) (ConstantInteger 0 (Integer 4 []))) (= (Var 3 a_2) (BinOp (Var 3 a) Mul (Var 3 a) (Integer 4 [(() ())]) ())) (= (Var 3 b_2) (BinOp (Var 3 b) Mul (Var 3 b) (Integer 4 [(() ())]) ())) (= (Var 3 c_2) (BinOp (Var 3 c) Mul (Var 3 c) (Integer 4 [(() ())]) ())) (= (Var 3 ab) (BinOp (BinOp (ConstantInteger 2 (Integer 4 [])) Mul (Var 3 a) (Integer 4 []) ()) Mul (Var 3 b) (Integer 4 []) ())) (= (Var 3 bc) (BinOp (BinOp (ConstantInteger 2 (Integer 4 [])) Mul (Var 3 b) (Integer 4 []) ()) Mul (Var 3 c) (Integer 4 []) ())) (= (Var 3 ca) (BinOp (BinOp (ConstantInteger 2 (Integer 4 [])) Mul (Var 3 c) (Integer 4 []) ()) Mul (Var 3 a) (Integer 4 []) ())) (= (Var 3 abc) (BinOp (BinOp (BinOp (ConstantInteger 2 (Integer 4 [])) Mul (Var 3 a) (Integer 4 []) ()) Mul (Var 3 b) (Integer 4 []) ()) Mul (Var 3 c) (Integer 4 []) ())) (= (Var 3 status) (ConstantInteger 1 (Integer 4 []))) (ImplicitDeallocate [3 a_2 3 ab 3 abc 3 b_2 3 bc 3 c_2 3 ca])] (Var 3 status) Source Public Implementation)}) allocate_01 [] [(= (Var 2 n) (ConstantInteger 10 (Integer 4 []))) (Allocate [(2 a [((ConstantInteger 1 (Integer 4 [])) (Var 2 n))]) (2 b [((ConstantInteger 1 (Integer 4 [])) (Var 2 n))]) (2 c [((ConstantInteger 1 (Integer 4 [])) (Var 2 n))])] (Var 2 ierr)) (= (Var 2 a) (ConstantInteger 1 (Integer 4 []))) (= (Var 2 b) (ConstantInteger 2 (Integer 4 []))) (= (Var 2 c) (ConstantInteger 3 (Integer 4 []))) (Print () [(FunctionCall 2 whole_square () [(Var 2 a) (Var 2 b) (Var 2 c)] [] (Integer 4 []) () ())]) (ImplicitDeallocate [2 a 2 b 2 c])]), lfortran_intrinsic_array: (Module (SymbolTable 5 {abs: (Function (SymbolTable 6 {abs: (Variable 6 abs ReturnVar () () Default (Integer 4 []) Source Public Required), x: (Variable 6 x In () () Default (Integer 4 [(() ())]) Source Public Required)}) abs [(Var 6 x)] [] (Var 6 abs) Intrinsic Public Interface), allocated: (Function (SymbolTable 7 {allocated: (Variable 7 allocated ReturnVar () () Default (Logical 4 []) Source Public Required), x: (Variable 7 x In () () Default (Integer 4 [(() ())]) Source Public Required)}) allocated [(Var 7 x)] [] (Var 7 allocated) Intrinsic Public Interface), lbound: (Function (SymbolTable 8 {dim: (Variable 8 dim In () () Default (Integer 4 []) Source Public Required), lbound: (Variable 8 lbound ReturnVar () () Default (Integer 4 []) Source Public Required), x: (Variable 8 x In () () Default (Integer 4 [(() ())]) Source Public Required)}) lbound [(Var 8 x) (Var 8 dim)] [] (Var 8 lbound) Intrinsic Public Interface), max: (Function (SymbolTable 9 {a: (Variable 9 a In () () Default (Integer 4 []) Source Public Required), b: (Variable 9 b In () () Default (Integer 4 []) Source Public Required), max: (Variable 9 max ReturnVar () () Default (Integer 4 []) Source Public Required)}) max [(Var 9 a) (Var 9 b)] [] (Var 9 max) Intrinsic Public Interface), maxval: (Function (SymbolTable 10 {maxval: (Variable 10 maxval ReturnVar () () Default (Integer 4 []) Source Public Required), x: (Variable 10 x In () () Default (Integer 4 [(() ())]) Source Public Required)}) maxval [(Var 10 x)] [] (Var 10 maxval) Intrinsic Public Interface), min: (Function (SymbolTable 11 {a: (Variable 11 a In () () Default (Integer 4 []) Source Public Required), b: (Variable 11 b In () () Default (Integer 4 []) Source Public Required), min: (Variable 11 min ReturnVar () () Default (Integer 4 []) Source Public Required)}) min [(Var 11 a) (Var 11 b)] [] (Var 11 min) Intrinsic Public Interface), minval: (Function (SymbolTable 12 {minval: (Variable 12 minval ReturnVar () () Default (Integer 4 []) Source Public Required), x: (Variable 12 x In () () Default (Integer 4 [(() ())]) Source Public Required)}) minval [(Var 12 x)] [] (Var 12 minval) Intrinsic Public Interface), real: (Function (SymbolTable 13 {kind: (Variable 13 kind In () () Default (Integer 4 []) Source Public Required), real: (Variable 13 real ReturnVar () () Default (Real 4 []) Source Public Required), x: (Variable 13 x In () () Default (Integer 4 [(() ())]) Source Public Required)}) real [(Var 13 x) (Var 13 kind)] [] (Var 13 real) Intrinsic Public Interface), size: (Function (SymbolTable 14 {size: (Variable 14 size ReturnVar () () Default (Integer 4 []) Source Public Required), x: (Variable 14 x In () () Default (Integer 4 [(() ())]) Source Public Required)}) size [(Var 14 x)] [] (Var 14 size) Intrinsic Public Interface), sum: (Function (SymbolTable 15 {sum: (Variable 15 sum ReturnVar () () Default (Integer 4 []) Source Public Required), x: (Variable 15 x In () () Default (Integer 4 [(() ())]) Source Public Required)}) sum [(Var 15 x)] [] (Var 15 sum) Intrinsic Public Interface), tiny: (Function (SymbolTable 16 {tiny: (Variable 16 tiny ReturnVar () () Default (Real 4 []) Source Public Required), x: (Variable 16 x In () () Default (Integer 4 [(() ())]) Source Public Required)}) tiny [(Var 16 x)] [] (Var 16 tiny) Intrinsic Public Interface), ubound: (Function (SymbolTable 17 {dim: (Variable 17 dim In () () Default (Integer 4 []) Source Public Required), ubound: (Variable 17 ubound ReturnVar () () Default (Integer 4 []) Source Public Required), x: (Variable 17 x In () () Default (Integer 4 [(() ())]) Source Public Required)}) ubound [(Var 17 x) (Var 17 dim)] [] (Var 17 ubound) Intrinsic Public Interface)}) lfortran_intrinsic_array [] .true.)}) [])
+(TranslationUnit (SymbolTable 1 {allocate_01: (Program (SymbolTable 2 {a: (Variable 2 a Local () () Allocatable (Integer 4 [(() ())]) Source Public Required), b: (Variable 2 b Local () () Allocatable (Integer 4 [(() ())]) Source Public Required), c: (Variable 2 c Local () () Allocatable (Integer 4 [(() ())]) Source Public Required), ierr: (Variable 2 ierr Local () () Default (Integer 4 []) Source Public Required), n: (Variable 2 n Local () () Default (Integer 4 []) Source Public Required), whole_square: (Function (SymbolTable 3 {a: (Variable 3 a Unspecified () () Allocatable (Integer 4 [(() ())]) Source Public Required), a_2: (Variable 3 a_2 Local () () Allocatable (Integer 4 [(() ())]) Source Public Required), ab: (Variable 3 ab Local () () Allocatable (Integer 4 [(() ())]) Source Public Required), abc: (Variable 3 abc Local () () Allocatable (Integer 4 [(() ())]) Source Public Required), b: (Variable 3 b Unspecified () () Allocatable (Integer 4 [(() ())]) Source Public Required), b_2: (Variable 3 b_2 Local () () Allocatable (Integer 4 [(() ())]) Source Public Required), bc: (Variable 3 bc Local () () Allocatable (Integer 4 [(() ())]) Source Public Required), c: (Variable 3 c Unspecified () () Allocatable (Integer 4 [(() ())]) Source Public Required), c_2: (Variable 3 c_2 Local () () Allocatable (Integer 4 [(() ())]) Source Public Required), ca: (Variable 3 ca Local () () Allocatable (Integer 4 [(() ())]) Source Public Required), n: (Variable 3 n Local () () Default (Integer 4 []) Source Public Required), size: (ExternalSymbol 3 size 5 size lfortran_intrinsic_array size Private), status: (Variable 3 status ReturnVar () () Default (Integer 4 []) Source Public Required)}) whole_square [(Var 3 a) (Var 3 b) (Var 3 c)] [(= (Var 3 n) (FunctionCall 3 size () [(Var 3 a)] [] (Integer 4 []) () ())) (Allocate [(3 a_2 [((ConstantInteger 1 (Integer 4 [])) (Var 3 n))]) (3 b_2 [((ConstantInteger 1 (Integer 4 [])) (Var 3 n))]) (3 c_2 [((ConstantInteger 1 (Integer 4 [])) (Var 3 n))])] ()) (Allocate [(3 ab [((ConstantInteger 1 (Integer 4 [])) (Var 3 n))]) (3 bc [((ConstantInteger 1 (Integer 4 [])) (Var 3 n))]) (3 ca [((ConstantInteger 1 (Integer 4 [])) (Var 3 n))]) (3 abc [((ConstantInteger 1 (Integer 4 [])) (Var 3 n))])] ()) (= (Var 3 status) (ConstantInteger 0 (Integer 4 []))) (= (Var 3 a_2) (BinOp (Var 3 a) Mul (Var 3 a) (Integer 4 [(() ())]) ())) (= (Var 3 b_2) (BinOp (Var 3 b) Mul (Var 3 b) (Integer 4 [(() ())]) ())) (= (Var 3 c_2) (BinOp (Var 3 c) Mul (Var 3 c) (Integer 4 [(() ())]) ())) (= (Var 3 ab) (BinOp (BinOp (ConstantInteger 2 (Integer 4 [])) Mul (Var 3 a) (Integer 4 []) ()) Mul (Var 3 b) (Integer 4 []) ())) (= (Var 3 bc) (BinOp (BinOp (ConstantInteger 2 (Integer 4 [])) Mul (Var 3 b) (Integer 4 []) ()) Mul (Var 3 c) (Integer 4 []) ())) (= (Var 3 ca) (BinOp (BinOp (ConstantInteger 2 (Integer 4 [])) Mul (Var 3 c) (Integer 4 []) ()) Mul (Var 3 a) (Integer 4 []) ())) (= (Var 3 abc) (BinOp (BinOp (BinOp (ConstantInteger 2 (Integer 4 [])) Mul (Var 3 a) (Integer 4 []) ()) Mul (Var 3 b) (Integer 4 []) ()) Mul (Var 3 c) (Integer 4 []) ())) (= (Var 3 status) (ConstantInteger 1 (Integer 4 []))) (ImplicitDeallocate [3 a_2 3 ab 3 abc 3 b_2 3 bc 3 c_2 3 ca])] (Var 3 status) Source Public Implementation)}) allocate_01 [] [(= (Var 2 n) (ConstantInteger 10 (Integer 4 []))) (Allocate [(2 a [((ConstantInteger 1 (Integer 4 [])) (Var 2 n))]) (2 b [((ConstantInteger 1 (Integer 4 [])) (Var 2 n))]) (2 c [((ConstantInteger 1 (Integer 4 [])) (Var 2 n))])] (Var 2 ierr)) (= (Var 2 a) (ConstantInteger 1 (Integer 4 []))) (= (Var 2 b) (ConstantInteger 2 (Integer 4 []))) (= (Var 2 c) (ConstantInteger 3 (Integer 4 []))) (Print () [(FunctionCall 2 whole_square () [(Var 2 a) (Var 2 b) (Var 2 c)] [] (Integer 4 []) () ())]) (ImplicitDeallocate [2 a 2 b 2 c])]), lfortran_intrinsic_array: (Module (SymbolTable 5 {abs: (Function (SymbolTable 6 {abs: (Variable 6 abs ReturnVar () () Default (Integer 4 []) Source Public Required), x: (Variable 6 x In () () Default (Integer 4 [(() ())]) Source Public Required)}) abs [(Var 6 x)] [] (Var 6 abs) Intrinsic Public Interface), allocated: (Function (SymbolTable 7 {allocated: (Variable 7 allocated ReturnVar () () Default (Logical 4 []) Source Public Required), x: (Variable 7 x In () () Default (Integer 4 [(() ())]) Source Public Required)}) allocated [(Var 7 x)] [] (Var 7 allocated) Intrinsic Public Interface), floor: (Function (SymbolTable 8 {floor: (Variable 8 floor ReturnVar () () Default (Integer 4 []) Source Public Required), kind: (Variable 8 kind In () () Default (Integer 4 []) Source Public Required), x: (Variable 8 x In () () Default (Real 4 [(() ())]) Source Public Required)}) floor [(Var 8 x) (Var 8 kind)] [] (Var 8 floor) Intrinsic Public Interface), lbound: (Function (SymbolTable 9 {dim: (Variable 9 dim In () () Default (Integer 4 []) Source Public Required), lbound: (Variable 9 lbound ReturnVar () () Default (Integer 4 []) Source Public Required), x: (Variable 9 x In () () Default (Integer 4 [(() ())]) Source Public Required)}) lbound [(Var 9 x) (Var 9 dim)] [] (Var 9 lbound) Intrinsic Public Interface), max: (Function (SymbolTable 10 {a: (Variable 10 a In () () Default (Integer 4 []) Source Public Required), b: (Variable 10 b In () () Default (Integer 4 []) Source Public Required), max: (Variable 10 max ReturnVar () () Default (Integer 4 []) Source Public Required)}) max [(Var 10 a) (Var 10 b)] [] (Var 10 max) Intrinsic Public Interface), maxval: (Function (SymbolTable 11 {maxval: (Variable 11 maxval ReturnVar () () Default (Integer 4 []) Source Public Required), x: (Variable 11 x In () () Default (Integer 4 [(() ())]) Source Public Required)}) maxval [(Var 11 x)] [] (Var 11 maxval) Intrinsic Public Interface), min: (Function (SymbolTable 12 {a: (Variable 12 a In () () Default (Integer 4 []) Source Public Required), b: (Variable 12 b In () () Default (Integer 4 []) Source Public Required), min: (Variable 12 min ReturnVar () () Default (Integer 4 []) Source Public Required)}) min [(Var 12 a) (Var 12 b)] [] (Var 12 min) Intrinsic Public Interface), minval: (Function (SymbolTable 13 {minval: (Variable 13 minval ReturnVar () () Default (Integer 4 []) Source Public Required), x: (Variable 13 x In () () Default (Integer 4 [(() ())]) Source Public Required)}) minval [(Var 13 x)] [] (Var 13 minval) Intrinsic Public Interface), real: (Function (SymbolTable 14 {kind: (Variable 14 kind In () () Default (Integer 4 []) Source Public Required), real: (Variable 14 real ReturnVar () () Default (Real 4 []) Source Public Required), x: (Variable 14 x In () () Default (Integer 4 [(() ())]) Source Public Required)}) real [(Var 14 x) (Var 14 kind)] [] (Var 14 real) Intrinsic Public Interface), size: (Function (SymbolTable 15 {size: (Variable 15 size ReturnVar () () Default (Integer 4 []) Source Public Required), x: (Variable 15 x In () () Default (Integer 4 [(() ())]) Source Public Required)}) size [(Var 15 x)] [] (Var 15 size) Intrinsic Public Interface), sum: (Function (SymbolTable 16 {sum: (Variable 16 sum ReturnVar () () Default (Integer 4 []) Source Public Required), x: (Variable 16 x In () () Default (Integer 4 [(() ())]) Source Public Required)}) sum [(Var 16 x)] [] (Var 16 sum) Intrinsic Public Interface), tiny: (Function (SymbolTable 17 {tiny: (Variable 17 tiny ReturnVar () () Default (Real 4 []) Source Public Required), x: (Variable 17 x In () () Default (Integer 4 [(() ())]) Source Public Required)}) tiny [(Var 17 x)] [] (Var 17 tiny) Intrinsic Public Interface), ubound: (Function (SymbolTable 18 {dim: (Variable 18 dim In () () Default (Integer 4 []) Source Public Required), ubound: (Variable 18 ubound ReturnVar () () Default (Integer 4 []) Source Public Required), x: (Variable 18 x In () () Default (Integer 4 [(() ())]) Source Public Required)}) ubound [(Var 18 x) (Var 18 dim)] [] (Var 18 ubound) Intrinsic Public Interface)}) lfortran_intrinsic_array [] .true.)}) [])
diff --git a/tests/reference/asr-array_bound_1-b0c2255.json b/tests/reference/asr-array_bound_1-b0c2255.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "asr-array_bound_1-b0c2255.stdout",
-    "stdout_hash": "210df33b863f3526e9bae8a23ac35b59dce91cf2880d046d6c7fec71",
+    "stdout_hash": "1b6468dbb0a45f182b6177d8781efafcd4d3496cba276df9e3036ef7",
     "stderr": null,
     "stderr_hash": null,
     "returncode": 0