Stefano Zaghi szaghi

## bench_select_if_goto.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              2 stars
            
          
                szaghi
                / bench_select_if_goto.md
            
            
              Last active
              October 16, 2016 19:41
            
              
                Fortran benchmark: select case/if elseif/goto comparison
              
          
    Aims

Compare the performance of select case, if elseif and goto branching flows.
Benchmark program

program bench_select_if_goto
  use iso_fortran_env
  implicit none

  
## djb_hash.f90
integer function djb_hash(str) result(hash)
    implicit none

    character(len=*),intent(in) :: str
    integer :: hash
    integer :: i

    hash = 5381

    do i=1,len(str)
	integer function djb_hash(str) result(hash)
	implicit none

	character(len=*),intent(in) :: str
	integer :: hash
	integer :: i

	hash = 5381

	do i=1,len(str)