add testcase from issue #6

Author: perazz

.gitignore

@@ -1,2 +1,2 @@
-
 *.mod
+project/*.mod

project/fortran-regex.depend

@@ -7,13 +7,17 @@
 
 1671127283 source:i:\fortran-regex\test\testdata.f90
 
-1671125468 source:i:\fortran-regex\src\regex.f90
+1671525497 source:i:\fortran-regex\src\regex.f90
 
-1671123384 source:i:\fortran-regex\test\test_1.f90
+1671525497 source:i:\fortran-regex\test\test_1.f90
 
 1671311161 source:/Users/federico/code/fortran-regex/test/test_2.f90
 
 1671351911 source:/Users/federico/code/fortran-regex/test/tests.f90
 
 1671442112 source:/Users/federico/code/fortran-regex/test/test_m_regex.f90
 
+1671525497 source:i:\fortran-regex\test\test_2.f90
+
+1671525497 source:i:\fortran-regex\test\test_m_regex.f90
+

test/tests.f90

@@ -31,9 +31,10 @@ program tests
     call add_test(test_main())
     call add_test(test_bracket_space())
     call add_test(test_end_anchor())
+    call add_test(test_end_anchor2())
 
     ! Test #2
-    !call add_test(run_test2())
+    call add_test(run_test2())
 
     if (nfailed<=0) then
         print "(*(a,:,i0))", 'SUCCESS! all ',npassed,' tests passed.'
@@ -110,5 +111,15 @@ logical function test_end_anchor() result(success)
 
     end function test_end_anchor
 
+    logical function test_end_anchor2() result(success)
+       use regex_module
+       implicit none
+
+       character(*), parameter :: text = 'Avida Dollar$'
+
+       success = check_pattern(text,'[A-Z][a-z]+$',expected="")
+       if (.not.success) return
+
+    end function test_end_anchor2
 
 end program tests