diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-05-29 19:39:15 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-05-29 19:39:15 +0000 |
| commit | 044c722753698a42a8dbc50caf30fcd9c03868e2 (patch) | |
| tree | 64b70ebcca77ef23905e630981e0aa97d4b6ec58 /gcc/testsuite/gfortran.dg/fmt_missing_period_3.f | |
| parent | b6bf0502ea405b432a9ca951713d576b0f1085a2 (diff) | |
| download | gcc-044c722753698a42a8dbc50caf30fcd9c03868e2.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@114214 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.dg/fmt_missing_period_3.f')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/fmt_missing_period_3.f | 15 |
1 files changed, 15 insertions, 0 deletions
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 00000000000..df52d80e041 --- /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 + |