Update test/example/logger/demo_log_text_error.f90

Co-authored-by: Ian Giestas Pauli <[email protected]>

Author: jvdp1

test/example/logger/demo_log_text_error.f90

@@ -21,4 +21,16 @@ program demo_log_text_error
     end do
 900 continue
 
+contains
+
+    subroutine check_line(line, status, col_no)
+        character(*), intent(in)    :: line
+        integer,      intent(inout) :: status
+        integer,      intent(inout) :: col_no
+        ! scan the line for forbidden characters
+        col_no = scan(line,".$/")
+        ! col_no > 0 means there is a forbidden character
+        status = int(col_no > 0)
+    end subroutine
+
 end program demo_log_text_error