From 87ac6a500a79d67ce4ef3cd0980eedf195ad33d0 Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Tue, 5 Apr 2005 21:45:41 +0200 Subject: [PATCH] * gfortran.dg/pr20755.f: Fixed bad format. From-SVN: r97650 --- gcc/testsuite/ChangeLog | 4 ++++ gcc/testsuite/gfortran.dg/pr20755.f | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 21becd6e7fd..f5cab7463f3 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2005-04-05 Francois-Xavier Coudert + + * gfortran.dg/pr20755.f: Fixed bad format. + 2005-04-05 Mark Mitchell PR c++/20763 diff --git a/gcc/testsuite/gfortran.dg/pr20755.f b/gcc/testsuite/gfortran.dg/pr20755.f index 07c72ae4134..e2bac5a7dcc 100644 --- a/gcc/testsuite/gfortran.dg/pr20755.f +++ b/gcc/testsuite/gfortran.dg/pr20755.f @@ -6,5 +6,5 @@ if (s .ne. " 0.00 2.000E-02") call abort write (s,2000) 0.01, 0.02 if (s .ne. " 1.000E-02 2.000E-02") call abort - 2000 format (1P2G12.3) + 2000 format (1PG12.3,G12.3) end