From 2e8ca19220698d74224420318067cb28f90ba99f Mon Sep 17 00:00:00 2001
From: Saurabh Kumar <developer.saurabh@outlook.com>
Date: Tue, 13 Aug 2024 20:09:22 +0530
Subject: [PATCH] test: add test for array in interactive mode

---
 src/lfortran/tests/test_llvm.cpp | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/src/lfortran/tests/test_llvm.cpp b/src/lfortran/tests/test_llvm.cpp
index 4dd260221a..e238317200 100644
--- a/src/lfortran/tests/test_llvm.cpp
+++ b/src/lfortran/tests/test_llvm.cpp
@@ -1098,6 +1098,23 @@ TEST_CASE("FortranEvaluator Array 1") {
     CHECK(r.result.type == FortranEvaluator::EvalResult::statement);
 }
 
+TEST_CASE("FortranEvaluator Array 2") {
+    CompilerOptions cu;
+    cu.interactive = true;
+    cu.po.runtime_library_dir = LCompilers::LFortran::get_runtime_library_dir();
+    FortranEvaluator e(cu);
+    LCompilers::Result<FortranEvaluator::EvalResult>
+    r = e.evaluate2("integer :: x(3)");
+    CHECK(r.ok);
+    CHECK(r.result.type == FortranEvaluator::EvalResult::none);
+    r = e.evaluate2("x = 5");
+    CHECK(r.ok);
+    CHECK(r.result.type == FortranEvaluator::EvalResult::statement);
+    r = e.evaluate2("print *, x");
+    CHECK(r.ok);
+    CHECK(r.result.type == FortranEvaluator::EvalResult::statement);
+}
+
 TEST_CASE("FortranEvaluator re-declaration 1") {
     CompilerOptions cu;
     cu.interactive = true;