1! { dg-do compile }
2!
3! PR fortran/38718
4!
5  implicit none
6  real(kind=8), parameter :: r = kind(0) + 0.2
7  complex(kind=8), parameter :: c = (r, -9.3)
8  integer, parameter :: k = nint(dreal(c))
9  integer, parameter :: l = nint(realpart(c))
10  integer(kind=k) :: i
11  integer(kind=l) :: j
12  i = 42
13  j = 42
14  print *, k, i, j, r
15  end
16