[flang-commits] [flang] [flang] Symbol for ENTRY with RESULT has Subroutine flag set (PR #177671)

[Eugene Epshteyn via flang-commits]

================
@@ -0,0 +1,28 @@
+!RUN: %python %S/test_symbols.py %s %flang_fc1
+!DEF: /m Module
+module m
+ !DEF: /m/k PUBLIC ObjectEntity INTEGER(4)
+ integer k
+contains
+ !DEF: /m/f PUBLIC, RECURSIVE (Function) Subprogram REAL(4)
+ !DEF: /m/f/r ObjectEntity REAL(4)
+ recursive function f() result(r)
+  !REF: /m/f/r
+  real r
+  !DEF: /m/e PUBLIC (Function) Subprogram REAL(4)
+  !REF: /m/f/r
+  entry e() result(r)
+  !DEF: /m/f/e (Function) HostAssoc REAL(4)
+  !DEF: /m/f/ptr EXTERNAL, POINTER (Function) ProcEntity REAL(4)
+  procedure(e), pointer :: ptr => e
----------------
eugeneepshteyn wrote:

Would C1579 apply here?

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