diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-11-21 04:35:17 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-11-21 04:35:17 +0000 |
| commit | 941bcbde52dcef1efc4184d83832a1cb0787c2e4 (patch) | |
| tree | 791d237b0605fc9c4fd48999cacf4ff36d0a82a8 | |
| parent | 0f4122ff3dbeac0791ea70ca3279cfd138db6fab (diff) | |
| download | gcc-941bcbde52dcef1efc4184d83832a1cb0787c2e4.zip gcc-941bcbde52dcef1efc4184d83832a1cb0787c2e4.tar.gz gcc-941bcbde52dcef1efc4184d83832a1cb0787c2e4.tar.bz2 | |
re PR fortran/37472 (bad output on default-format write of double in common block with -m64)
2008-11-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/37472
* gfortran.dg/namelist_print_1.f: Update test.
From-SVN: r142080
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/namelist_print_1.f | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 49f4a87..b0901eb 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2008-11-20 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR libfortran/37472 + * gfortran.dg/namelist_print_1.f: Update test. + 2008-11-20 Andreas Krebbel <krebbel1@de.ibm.com> * gcc.dg/sync-2.c: Add type cast to avoid folding. diff --git a/gcc/testsuite/gfortran.dg/namelist_print_1.f b/gcc/testsuite/gfortran.dg/namelist_print_1.f index feebd00..abc8aec 100644 --- a/gcc/testsuite/gfortran.dg/namelist_print_1.f +++ b/gcc/testsuite/gfortran.dg/namelist_print_1.f @@ -9,5 +9,5 @@ namelist /mynml/ x x = 1 ! ( dg-output "^" } - print mynml ! { dg-output "&MYNML(\n|\r\n|\r) X= 1.00000000 ,(\n|\r\n|\r) /(\n|\r\n|\r)" } + print mynml ! { dg-output "&MYNML(\n|\r\n|\r) X= 1.0000000 ,(\n|\r\n|\r) /(\n|\r\n|\r)" } end |