diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-05-29 19:39:15 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-05-29 19:39:15 +0000 |
| commit | acb69f1c028c9967eab7675135171531727072c2 (patch) | |
| tree | 64b70ebcca77ef23905e630981e0aa97d4b6ec58 /gcc | |
| parent | c9f4aa9767727934160c65b63ec69b88e93ec062 (diff) | |
| download | gcc-acb69f1c028c9967eab7675135171531727072c2.zip gcc-acb69f1c028c9967eab7675135171531727072c2.tar.gz gcc-acb69f1c028c9967eab7675135171531727072c2.tar.bz2 | |
re PR fortran/27634 (formatted reading/writing: real format without dot)
2006-05-29 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/27634
* gfortran.dg/fmt_missing_period_1.f: New test.
* gfortran.dg/fmt_missing_period_2.f: New test.
* gfortran.dg/fmt_missing_period_3.f: New test.
From-SVN: r114214
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/fmt_missing_period_1.f | 10 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/fmt_missing_period_2.f | 16 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/fmt_missing_period_3.f | 15 |
4 files changed, 48 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 90818dd..2d4e254 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,10 @@ +2006-05-29 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR libgfortran/27634 + * gfortran.dg/fmt_missing_period_1.f: New test. + * gfortran.dg/fmt_missing_period_2.f: New test. + * gfortran.dg/fmt_missing_period_3.f: New test. + 2006-05-29 Francois-Xavier Coudert <coudert@clipper.ens.fr> PR fortran/19777 diff --git a/gcc/testsuite/gfortran.dg/fmt_missing_period_1.f b/gcc/testsuite/gfortran.dg/fmt_missing_period_1.f new file mode 100644 index 0000000..d66fb8e --- /dev/null +++ b/gcc/testsuite/gfortran.dg/fmt_missing_period_1.f @@ -0,0 +1,10 @@ +! { dg-compile } +! PR27634 Missing period in format specifier. Test case derived from case given +! in PR. Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org> + real aval + character(6) :: str + character(12) :: input = "1234abcdef" + read(input,'(f4,a6)') aval, str !{ dg-error "Period required" } + read(input,'(d10,a6)') aval, str !{ dg-error "Period required" } + end + diff --git a/gcc/testsuite/gfortran.dg/fmt_missing_period_2.f b/gcc/testsuite/gfortran.dg/fmt_missing_period_2.f new file mode 100644 index 0000000..2ad3315 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/fmt_missing_period_2.f @@ -0,0 +1,16 @@ +! { dg-run } +! { dg-options "-w -std=legacy" } +! PR27634 Missing period in format specifier. Test case derived from case given +! in PR. Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org> + real :: aval = 3.14 + character(6) :: str = "xyz" + character(12) :: input = "1234abcdef" + read(input,'(f4,a6)') aval, str + if (aval.ne.1234.0) call abort() + if (str.ne."abcdef") call abort() + aval = 0.0 + str = "xyz" + read(input,'(d4,a6)') aval, str + if (aval.ne.1234.0) call abort() + if (str.ne."abcdef") call abort() + end diff --git a/gcc/testsuite/gfortran.dg/fmt_missing_period_3.f b/gcc/testsuite/gfortran.dg/fmt_missing_period_3.f new file mode 100644 index 0000000..df52d80 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/fmt_missing_period_3.f @@ -0,0 +1,15 @@ +! { dg-run } +! { dg-options "-std=legacy" } +! PR27634 Missing period in format specifier. Test case derived from case given +! in PR. Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org> + real :: aval = 3.14 + character(6) :: str = "xyz" + character(12) :: input = "1234abcdef" + character(8) :: fmtstr = "(f4,a6)" + aval = 0.0 + str = "xyz" + read(input,fmtstr) aval, str + if (aval.ne.1234.0) call abort() + if (str.ne."abcdef") call abort() + end + |