37f94cd99a
Don't emit a bogus error about being unable to forward an assumed-rank dummy argument as an actual argument in the case of the KIND intrinsic function. Fixes https://github.com/llvm/llvm-project/issues/107782.
7 lines
143 B
Fortran
7 lines
143 B
Fortran
! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s
|
|
subroutine subr(ar)
|
|
real(8) :: ar(..)
|
|
!CHECK: PRINT *, 8_4
|
|
print *, kind(ar)
|
|
end
|