[llvm-bugs] [Bug 83292] [Flang] Incorrect diagnose when proc-iface in a procedure declaration statement is a function that returns a polymorphic procedure pointer

[LLVM Bugs via llvm-bugs]

Issue	83292
Summary	[Flang] Incorrect diagnose when proc-iface in a procedure declaration statement is a function that returns a polymorphic procedure pointer
Labels	bug, flang:frontend
Assignees
Reporter	DanielCChen

    Consider the following test case
```
  MODULE M

    TYPE :: DT
 real :: r
    END TYPE

    INTERFACE
      FUNCTION FunI()
 IMPORT
        CLASS(DT), POINTER :: FunI
      END FUNCTION
 END INTERFACE

    INTERFACE
      FUNCTION FunRetPtr1()
 IMPORT
        PROCEDURE(FunI), POINTER :: FunRetPtr1
      END FUNCTION
    END INTERFACE
  END MODULE


  PROGRAM PrtAssignTarExpr
  USE M
  IMPLICIT NONE

 PROCEDURE(FunRetPtr1), POINTER :: Ptr1
  END
```

Flang currently issues an error:
```
./t.f:27:37: error: CLASS entity 'ptr1' must be a dummy argument, allocatable, or object pointer
    PROCEDURE(FunRetPtr1), POINTER :: Ptr1
                                      ^^^^
 ```
 
 The code seems conforming to me and the error message doesn't quite make sense to me.

_______________________________________________
llvm-bugs mailing list
llvm-bugs@lists.llvm.org
https://lists.llvm.org/cgi-bin/mailman/listinfo/llvm-bugs