updated unit test to test new fmt=* output.

Author: jacobwilliams

src/tests/jf_test_13.f90

@@ -25,7 +25,8 @@ subroutine test_13(error_cnt)
     character(kind=CK,len=:),allocatable :: str
     integer :: i
 
-    character(len=2),dimension(4),parameter :: fmts=['g ','e ','en','es'] !! format statements to test
+    character(len=2),dimension(5),parameter :: fmts=['g ','e ','en','es','* ']
+        !! format statements to test
 
     write(error_unit,'(A)') ''
     write(error_unit,'(A)') '================================='