program implicitrealtorealdifferentkindexample
implicit none
real(4) :: realnumber1
real(8) :: realnumber2
realnumber1 = 3.14000010e+00
realnumber2 = real(realnumber1, kind=8)
end program implicitrealtorealdifferentkindexample
