program implicitrealtointcastexample
implicit none
integer(4) :: integervalue
real(4) :: realnumber
realnumber = 3.14000010e+00
integervalue = int(realnumber, kind=4)
print *, "Real Number:", realnumber
print *, "Integer Value:", integervalue
end program implicitrealtointcastexample
