[flang-commits] [flang] [Flang] Fix IsProcedure() for procedure-valued function references (PR #216322)

[via flang-commits]

================
@@ -16,3 +16,16 @@ function bad2() result(res2)
   !ERROR: EXTERNAL attribute not allowed on 'res2'
   external res2
 end
+
+function s(x) result(i)
+  !ERROR: A function result may not be a procedure unless it is a procedure pointer
+  procedure() :: i
+  !ERROR: Actual argument for 'array=' may not be a procedure
+  print *, size(S(dd))
----------------
keepyixiao wrote:

Done! I've added the tests. Thanks for the review.

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