regex_test.f90

program regex_test

    use fexp

    implicit none

    character(len=1000) :: regex
    character(len=10000) :: text

    if (command_argument_count().eq.2) then
        call get_command_argument(1, regex)
        call get_command_argument(2, text)
        if (match(trim(regex), trim(text))) then
            print*, "Match: T 0s:", matchstart, "0l:", matchlength
        else
            print*, "Match: F"
        endif
    elseif (command_argument_count().eq.3) then
        call get_command_argument(1, regex)
        call get_command_argument(2, text)
        if (match(trim(regex), trim(text), .true.)) then
            print*, "DMatch: T 0s:", matchstart, "0l:", matchlength
        else
            print*, "DMatch: F"
        endif
    else 
        stop("regex_test error: number of arguments should be exactly 2 or 3!")
    endif

end program regex_test