RosettaCodeData/Task/Substring-Top-and-tail/Fortran/substring-top-and-tail.f

program substring

  character(len=5) :: string
  string = "Hello"

  write (*,*) string
  write (*,*) string(2:)
  write (*,*) string( :len(string)-1)
  write (*,*) string(2:len(string)-1)

end program substring