source: anna.f90@ 3

module pal
  implicit none

  public :: anna

contains

  function anna (strng) result (jein)
    character(len=*),intent(in)            :: strng
    logical                                :: jein
    character(len=1),dimension(len(strng)) :: feld
    integer                                :: i,n

    n = len(strng)

    do i=1,n
       feld(i) = strng(i:i)
    end do

    i = n/2
    if(all(feld(:i) == feld(n:n+1-i:-1))) then
       jein=.true.
    else
       jein=.false.
    end if

  end function anna
end module pal

program otto
  use pal
  implicit none
  character(len=*),parameter :: palin="retter"
  logical                    :: heyho

  heyho=anna(palin)
  if (heyho) then
     write(unit=*,fmt=*) "JAWOHL!"
  else
     write(unit=*,fmt=*) "NOE!"
  end if
end program otto