! ---------------------
! Example program
!
! SELECT CASE structure
! ---------------------
program main
  implicit none  
  integer:: i
  real(kind(1.d0)):: x
  do i = -5, 5
     select case(i)
     case(:-1)
        print*,i,' is negative'
     case(0)
        print*,i,' is zero'
     case(1:3) 
        print*,i,' is between 1 and 3'   
     case default 
        print*,i,' is something else'
     end select
  end do
end program main