program example

  implicit none
  character(3) :: char = '250'
  integer :: char_to_int = 0

  print *, 'CHAR = ', char
  print *, 'CHAR_TO_INT = ', char_to_int
  read(char,fmt='(I3)') char_to_int
  print *, 'Magic happens.......'
  print *, 'CHAR = ', char
  print *, 'CHAR_TO_INT = ', char_to_int

  end program example