@@ -4,8 +4,8 @@ program test_strings_format_string
4
4
use stdlib_optval, only: optval
5
5
implicit none
6
6
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. )
9
9
call check_formatter(format_string((1 , 1 ), ' (F6.2)' ), " ( 1.00, 1.00)" , &
10
10
& " Formatter for complex number" )
11
11
call check_formatter(format_string((- 1 , - 1 ), ' (F6.2)' ), " ( -1.00, -1.00)" , &
@@ -32,8 +32,8 @@ program test_strings_format_string
32
32
call check_formatter(format_string(34 , ' (Z3)' ), " 22" , &
33
33
& " Hexadecimal formatter for integer number" )
34
34
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. )
37
37
call check_formatter(format_string(100 ., ' (F6.2)' ), " 100.00" , &
38
38
& " Formatter for real number" )
39
39
call check_formatter(format_string(289 ., ' (E7.2)' ), " .29E+03" , &
0 commit comments