diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-06-30 16:01:25 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-06-30 16:01:25 +0000 |
| commit | e214d45fbd822d50f66691cf8961e513145b84d8 (patch) | |
| tree | 98fa6097bf0d67b42ae7815b895ebc944aaa5888 /gcc/testsuite/gfortran.dg/fmt_zero_check.f90 | |
| parent | 375316de52e2a09b0c4a95a88f1bf8444769725b (diff) | |
| download | gcc-e214d45fbd822d50f66691cf8961e513145b84d8.tar.gz | |
2007-06-30 Tobias Burnus <burnus@net-b.de>
PR fortran/32555
* io.c (check_format): Allow zero to precede the
P edit descriptor.
2007-06-30 Tobias Burnus <burnus@net-b.de>
PR fortran/32555
* gfortran.dg/fmt_zero_check.f90: New.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@126152 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.dg/fmt_zero_check.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/fmt_zero_check.f90 | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/fmt_zero_check.f90 b/gcc/testsuite/gfortran.dg/fmt_zero_check.f90 new file mode 100644 index 00000000000..d8b6c5dfe81 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/fmt_zero_check.f90 @@ -0,0 +1,6 @@ +! { dg-do compile } +! PR fortran/32555 +! +2050 FORMAT(0PF9.4) +2050 FORMAT(0F9.4) ! { dg-error "Expected P edit descriptor" } +end |