[Flang] %REF: Incorrect diagnostic.

[DanielCChen]

Consider the following code:

      interface
         subroutine sub(ctx)
            integer :: ctx
         end
      end interface

   integer, parameter :: ret = 5

   call sub(%ref(ret))

  end

Flang currently issues an error as:

9:18: error: Assignment to constant 'ret' is not allowed
   call sub(%ref(ret))
                 ^^^

XLF, gfortran and ifort all accept the above syntax.

[llvmbot]

@llvm/issue-subscribers-flang-frontend

Author: Daniel Chen (DanielCChen)

Consider the following code: ``` interface subroutine sub(ctx) integer :: ctx end end interface

integer, parameter :: ret = 5

call sub(%ref(ret))

end

Flang currently issues an error as:

9:18: error: Assignment to constant 'ret' is not allowed
call sub(%ref(ret))
^^^

XLF, gfortran and ifort all accept the above syntax.
</details>

[llvmbot]

@llvm/issue-subscribers-bug

Author: Daniel Chen (DanielCChen)

Consider the following code: ``` interface subroutine sub(ctx) integer :: ctx end end interface

integer, parameter :: ret = 5

call sub(%ref(ret))

end

Flang currently issues an error as:

9:18: error: Assignment to constant 'ret' is not allowed
call sub(%ref(ret))
^^^

XLF, gfortran and ifort all accept the above syntax.
</details>

[klausler]

#93718