[Patch, fortran] PR31154 and PR31229 - use associated and imported function kind parameters

[Tobias Burnus]

Paul Richard Thomas wrote:
> Regtested on Cygwin_NT/amd64 - OK for trunk?
>   
Not OK. The patch causes a regression:

Error: Can't convert REAL(4) to REAL(-1) at (1)

module m
  integer, parameter :: dp = kind(0d0)
contains
  real(dp) function func()
    implicit none
    func = 5.0
  end function func
end module m
end

(Found with Espresso/PWSCF)

Tobias