[Flang] Incorrect diagnose when declare a procedure with explicit typing in multiple statements

[DanielCChen]

Consider the following code.

integer :: proc
procedure() :: proc
end

Flang currently issues an error as

2:16: error: The interface for procedure 'proc' has already been declared
  procedure() :: proc
                 ^^^^
./t.f:2:16: Declaration of 'proc'
  procedure() :: proc
                 ^^^^

It seems incorrect. This code should be equivalent to procedure(integer) :: proc.

[llvmbot]

@llvm/issue-subscribers-flang-frontend

Author: Daniel Chen (DanielCChen)

Consider the following code. ``` integer :: proc procedure() :: proc end ```

Flang currently issues an error as

2:16: error: The interface for procedure 'proc' has already been declared
  procedure() :: proc
                 ^^^^
./t.f:2:16: Declaration of 'proc'
  procedure() :: proc
                 ^^^^

It seems incorrect. This code should be equivalent to procedure(integer) :: proc.

[llvmbot]

@llvm/issue-subscribers-bug

Author: Daniel Chen (DanielCChen)

Consider the following code. ``` integer :: proc procedure() :: proc end ```

Flang currently issues an error as

2:16: error: The interface for procedure 'proc' has already been declared
  procedure() :: proc
                 ^^^^
./t.f:2:16: Declaration of 'proc'
  procedure() :: proc
                 ^^^^

It seems incorrect. This code should be equivalent to procedure(integer) :: proc.

[klausler]

#82835

[DanielCChen]

Thanks for the quick fix! @klausler
PR #82935 fixed the reproducer and some of the original test cases.

However, one variation still fails.

The reproducer is as follows.

integer :: proc
procedure(integer) :: proc
end

[klausler]

That case has multiple type declarations for the same symbol; gfortran and NAG also emit errors.