@@ -4,8 +4,8 @@ program test_strings_format_string
44 use stdlib_optval, only: optval
55 implicit none
66 print * , ' format_string(complex) : '
7- call check_formatter(format_string((1 , 1 )), " (1.00000000,1.00000000) " , &
8- & " Default formatter for complex number" )
7+ call check_formatter(format_string((1 , 1 )), " (1.0 " , &
8+ & " Default formatter for complex number" , partial = .true. )
99 call check_formatter(format_string((1 , 1 ), ' (F6.2)' ), " ( 1.00, 1.00)" , &
1010 & " Formatter for complex number" )
1111 call check_formatter(format_string((- 1 , - 1 ), ' (F6.2)' ), " ( -1.00, -1.00)" , &
@@ -32,8 +32,8 @@ program test_strings_format_string
3232 call check_formatter(format_string(34 , ' (Z3)' ), " 22" , &
3333 & " Hexadecimal formatter for integer number" )
3434 print * , ' format_string(real) : '
35- call check_formatter(format_string(100 .), " 100.000000 " , &
36- & " Default formatter for real number" )
35+ call check_formatter(format_string(100 .), " 100.0 " , &
36+ & " Default formatter for real number" , partial = .true. )
3737 call check_formatter(format_string(100 ., ' (F6.2)' ), " 100.00" , &
3838 & " Formatter for real number" )
3939 call check_formatter(format_string(289 ., ' (E7.2)' ), " .29E+03" , &
0 commit comments