re PR libfortran/48852 (Invalid spaces in list-directed output of complex constants)

[thirdparty/gcc.git] / gcc / testsuite / gfortran.dg / char4_iunit_1.f03

diff --git a/gcc/testsuite/gfortran.dg/char4_iunit_1.f03 b/gcc/testsuite/gfortran.dg/char4_iunit_1.f03
index f02cc1a7b5bccbd697511fb56c820c0b0d16d94f..7d388ad99fed5ce39c8c9c083b652a2b3007484e 100644 (file)
--- a/gcc/testsuite/gfortran.dg/char4_iunit_1.f03
+++ b/gcc/testsuite/gfortran.dg/char4_iunit_1.f03
@@ -30,5 +30,5 @@ program char4_iunit_1
   write(string, '(10x,f3.1,3x,f9.1)') nan, inf
   if (string .ne. 4_"          NaN    Infinity             ") call abort
   write(string, *) (1.2, 3.4 )
-  if (string .ne. 4_" (  1.20000005    ,  3.40000010    )  ") call abort
+  if (string .ne. 4_"             (1.20000005,3.40000010)") call abort
 end program char4_iunit_1