Compiler Explorer

Source code

module simd
implicit none
public
contains
    ! Find semicolon location
    integer function findsc(str)
        character(len=*) :: str

integer(1), parameter :: sc = iachar(';',1)
        integer(1) :: r(16)
        logical(1) :: z
        integer :: i, k

if (mod(len(str),16) /= 0) then
            error stop "Length should be multiple of 16"
        end if

do i = 1, len(str), 16
            ! read chars into integer register
            r = transfer(str(i:i+16),r)
        
            ! search for semicolon
            z = .false.
            !$omp simd simdlen(16) reduction(.or.: z)
            do k = 1, 16
                z = z .or. (r(k) == sc)
            end do
            
            if (z) then
               ! semicolon was found
                findsc = i + findloc(r,sc,dim=1) - 1
                return
            end if
        end do

! semicolon not found
        findsc = 0
    end function

end module

program test
    use simd
    implicit none
    character(len=32) :: a
    integer :: i 
    a = "abcd456;"
    i = findsc(a)
    print *, i
end program