diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-05-09 11:21:01 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-05-09 11:21:01 +0000 |
| commit | 8f45276f12aea60fbe58745832a92050effde500 (patch) | |
| tree | 7986eb5beb061270c1c86ffeaa510692657c6378 /gcc/testsuite/gfortran.dg/pr19155.f | |
| parent | 3bcb100d435198326198cea3af9341f44e3ceaee (diff) | |
| download | gcc-8f45276f12aea60fbe58745832a92050effde500.tar.gz | |
PR libfortran/19155
* io/read.c (read_f): Accept 'e', 'E', 'd' and 'D' as first
non-blank characters of a real number.
* gfortran.dg/pr19155.f: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@99424 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.dg/pr19155.f')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr19155.f | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/pr19155.f b/gcc/testsuite/gfortran.dg/pr19155.f new file mode 100644 index 00000000000..ccd391520b1 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr19155.f @@ -0,0 +1,15 @@ +! { dg-do run } +! +! PR libfortran/19155 +! We accept 'E+00' as a valid real number. The standard says it is not, +! but doesn't require us to issue an error. Since g77 accepts this as zero, +! we do the same. + real a + a = 42 + open (19,status='scratch') + write (19,'(A15)') 'E+00' + rewind (19) + read (19,'(E15.8)') a + if (a .ne. 0) call abort + close (19) + end |