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