Skip to content

Commit 41c5783

Browse files
authored
Try to make default formatter tests compiler independent
1 parent 7f6c3c6 commit 41c5783

File tree

1 file changed

+4
-4
lines changed

1 file changed

+4
-4
lines changed

src/tests/string/test_strings_format_string.f90

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -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

Comments
 (0)