From a14e5b7e0e7ed93f3be7fde973f5ee7ab0225cc4 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Mon, 24 Aug 2009 03:46:18 +0000 Subject: [PATCH] fmt_error_7.f: New test. 2009-08-23 Jerry DeLisle * gfortran.dg/fmt_error_7.f: New test. From-SVN: r151044 --- gcc/testsuite/ChangeLog | 4 ++++ gcc/testsuite/gfortran.dg/fmt_error_7.f | 7 +++++++ 2 files changed, 11 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/fmt_error_7.f diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 7fc7d23b95c0..58a563b9cb42 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2009-08-23 Jerry DeLisle + + * gfortran.dg/fmt_error_7.f: New test. + 2009-08-23 Uros Bizjak PR target/40718 diff --git a/gcc/testsuite/gfortran.dg/fmt_error_7.f b/gcc/testsuite/gfortran.dg/fmt_error_7.f new file mode 100644 index 000000000000..9b5fba97e252 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/fmt_error_7.f @@ -0,0 +1,7 @@ +! { dg-do compile } +! PR37446 Diagnostic of edit descriptors, esp. EN + character(40) :: fmt_string + write(*, '(1P,2E12.4)') 1.0 + write(*,'(EN)') 5.0 ! { dg-error "Positive width required" } + write(*,'("abcdefg",EN6,"hjjklmnop")') 5.0 ! { dg-error "Period required" } + end -- 2.47.2