Merge pull request #84 from czgdp1807/ptr_02

Ported ``integration_tests/associate_03.f90`` from LFortran
lcompilers · Feb 2, 2024 · d85c4b6 · d85c4b6
2 parents bed4733 + 6b08b70
commit d85c4b6
Show file tree

Hide file tree

Showing 2 changed files with 30 additions and 0 deletions.
diff --git a/integration_tests/CMakeLists.txt b/integration_tests/CMakeLists.txt
@@ -214,5 +214,6 @@ RUN(NAME struct_03.cpp LABELS gcc llvm NOFAST)
 RUN(NAME struct_04.cpp LABELS gcc llvm NOFAST)
 
 RUN(NAME pointer_01.cpp LABELS gcc llvm NOFAST)
+RUN(NAME pointer_02.cpp LABELS gcc llvm NOFAST)
 
 RUN(NAME function_01.cpp LABELS gcc llvm NOFAST)
diff --git a/integration_tests/pointer_02.cpp b/integration_tests/pointer_02.cpp
@@ -0,0 +1,29 @@
+#include <iostream>
+
+int main() {
+
+    int* p1;
+    int t1 = 2, t2 = 1;
+    int i;
+
+    std::cout << t1 << t2 << std::endl;
+
+    if (t1 > t2) {
+        p1 = &t1;
+    } else {
+        p1 = &t2;
+    }
+
+    std::cout << *p1 << std::endl;
+
+    if (*p1 == t2) {
+        exit(2);
+    }
+
+    i = *p1;
+    if (i == t2) {
+        exit(2);
+    }
+
+    return 0;
+}