Merge pull request #81 from czgdp1807/struct_04

Ported ``integration_tests/derived_types_22.f90`` from LFortran
lcompilers · Feb 1, 2024 · 1ba29d4 · 1ba29d4
2 parents 560a111 + c934d80
commit 1ba29d4
Show file tree

Hide file tree

Showing 3 changed files with 29 additions and 0 deletions.
diff --git a/integration_tests/CMakeLists.txt b/integration_tests/CMakeLists.txt
@@ -210,5 +210,6 @@ RUN(NAME array_23.cpp LABELS gcc llvm NOFAST)
 RUN(NAME struct_01.cpp LABELS gcc llvm NOFAST)
 RUN(NAME struct_02.cpp LABELS gcc llvm NOFAST)
 RUN(NAME struct_03.cpp LABELS gcc llvm NOFAST)
+RUN(NAME struct_04.cpp LABELS gcc llvm NOFAST)
 
 RUN(NAME function_01.cpp LABELS gcc llvm NOFAST)
diff --git a/integration_tests/struct_04.cpp b/integration_tests/struct_04.cpp
@@ -0,0 +1,18 @@
+#include <iostream>
+#include "struct_04_m_01.h"
+
+void pass() {
+    std::cout << struct_instance_sample.A << struct_instance_sample.B << std::endl;
+    if (abs(struct_instance_sample.A - 10.0) > 1.0e-7) {
+        exit(2);
+    }
+    if (abs(struct_instance_sample.B - 20.0) > 1.0e-7) {
+        exit(2);
+    }
+}
+
+int main() {
+    struct_instance_sample.A = 10.0;
+    struct_instance_sample.B = 20.0;
+    pass();
+}
diff --git a/integration_tests/struct_04_m_01.h b/integration_tests/struct_04_m_01.h
@@ -0,0 +1,10 @@
+#ifndef INTEGRATION_TESTS_STRUCT_04_M_01_H
+#define INTEGRATION_TESTS_STRUCT_04_M_01_H
+
+struct sample {
+    float A, B, E;
+};
+
+struct sample struct_instance_sample;
+
+#endif