add e[ ]+f test

Author: perazz

test/test_2.f90

@@ -490,8 +490,6 @@ subroutine read_test2(fileName)
              last = last+80
           end do
 
-
-
        close(iunit)
 
        1 format(4x,'character(len=*), parameter :: test2data(*) = [ &')

test/tests.f90

@@ -90,6 +90,12 @@ logical function test_bracket_space() result(success)
        success = idx>0;  if (.not.success) return
        success = text(idx:idx+ln-1) == "e f"
 
+       idx = REGEX(string=text,pattern='e[ ]+f',length=ln);
+
+       ! Prints "football"
+       success = idx>0;  if (.not.success) return
+       success = text(idx:idx+ln-1) == "e f"
+
     end function test_bracket_space