program ieee_real
! Force all variables to be explicitly declared.
  implicit none

! For reals precision and range can (should) be defined.
! The selcetet "kind" parameter will give reals of at least 15 
! digits and range 10E+/-307.
  integer, parameter :: wp8 = SELECTED_REAL_KIND(15,307)
  real (kind=wp8) :: eight_byte_variable ! On IEEE conforming systems.

  eight_byte_variable = 0.5_wp8
  print *, wp8, eight_byte_variable, HUGE(eight_byte_variable), &
    TINY(eight_byte_variable)
end program ieee_real