[flang-commits] [flang] [llvm] [flang] Enumeration Type: (PR 3/5) Intrinsics + I/O + Modules (PR #193235)

[via flang-commits]

================
@@ -0,0 +1,122 @@
+! RUN: %python %S/test_modfile.py %s %flang_fc1 -fenumeration-type
+! Check correct modfile generation for enumeration types.
+
+! Basic enumeration type
+module m1
+  enumeration type :: color
+    enumerator :: red, green, blue
+  end enumeration type
+  type(color) :: c = green
+end
+
+!Expect: m1.mod
+!module m1
+!enumeration type::color
+!enumerator::red,green,blue
+!end enumeration type
+!type(color)::c
+!end
+
+! Private enumeration type
----------------
kwyatt-ext wrote:

Thank you.  That case revealed an issue.  I've re-written the attribute code to apply properly and added your case to the test.

https://github.com/llvm/llvm-project/pull/193235