diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2015-11-22 22:17:52 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2015-11-22 22:17:52 +0000 |
| commit | cfba61d25c4acaa74c352c492150e197a4cafcba (patch) | |
| tree | 9e3ee4064ae1a34de9957c183b1542291bfbc082 | |
| parent | ba67259c00e54af656e509537e19ee017929ddc9 (diff) | |
| download | gcc-cfba61d25c4acaa74c352c492150e197a4cafcba.zip gcc-cfba61d25c4acaa74c352c492150e197a4cafcba.tar.gz gcc-cfba61d25c4acaa74c352c492150e197a4cafcba.tar.bz2 | |
fmt_g0_1.f08: Update test.
2015-11-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
* gfortran.dg/fmt_g0_1.f08: Update test. Leading zero.
From-SVN: r230729
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/fmt_g0_1.f08 | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 0e0b74f..7163326 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2015-11-22 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + * gfortran.dg/fmt_g0_1.f08: Update test. Leading zero. + 2015-11-22 Steven G. Kargl <kargl@gcc.gnu.org> PR fortran/68486 diff --git a/gcc/testsuite/gfortran.dg/fmt_g0_1.f08 b/gcc/testsuite/gfortran.dg/fmt_g0_1.f08 index ead6f81..5b74a3e 100644 --- a/gcc/testsuite/gfortran.dg/fmt_g0_1.f08 +++ b/gcc/testsuite/gfortran.dg/fmt_g0_1.f08 @@ -8,9 +8,9 @@ write(buffer, string) ':',0,':' if (buffer.ne.":0:") call abort write(buffer, string) ':',1.0_8/3.0_8,':' - if (buffer.ne.":.33333333333333331:") call abort + if (buffer.ne.":0.33333333333333331:") call abort write(buffer, '(1x,a,g0,a)') ':',1.0_8/3.0_8,':' - if (buffer.ne." :.33333333333333331:") call abort + if (buffer.ne." :0.33333333333333331:") call abort write(buffer, string) ':',"hello",':' if (buffer.ne.":hello:") call abort write(buffer, "(g0,g0,g0,g0)") ':',.true.,.false.,':' |