[flang-commits] [flang] [flang] Cray pointer in module (PR #66119)

[Slava Zakharin via flang-commits]

================
@@ -0,0 +1,14 @@
+! RUN: %python %S/test_modfile.py %s %flang_fc1
+
+! Cray pointer
+module m
+  integer :: pte
+  pointer(ptr,pte)
----------------
vzakhari wrote:

Thank you for the test.  Can you please also add a case where the pointee's shape is defined by the `pointer` statement?

Something like this:
```
integer :: x
pointer(ptrx, x[10])
```

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