From 91ddf5a1e710ef71f8f4e0f4d84dc852d15eea89 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sat, 15 Nov 2008 05:14:33 +0000 Subject: [PATCH] re PR fortran/37988 (Edit descriptor checking (compile time) for "T)") 2008-11-14 Jerry DeLisle PR fortran/37988 * gfortran.dg/fmt_error_6.f90: New test. From-SVN: r141880 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/fmt_error_6.f90 | 6 ++++++ 2 files changed, 11 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/fmt_error_6.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 2c74349416d..51bb931672e 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2008-11-14 Jerry DeLisle + + PR fortran/37988 + * gfortran.dg/fmt_error_6.f90: New test. + 2008-11-14 Jason Merrill PR c++/38030 diff --git a/gcc/testsuite/gfortran.dg/fmt_error_6.f90 b/gcc/testsuite/gfortran.dg/fmt_error_6.f90 new file mode 100644 index 00000000000..a974c04f31f --- /dev/null +++ b/gcc/testsuite/gfortran.dg/fmt_error_6.f90 @@ -0,0 +1,6 @@ +! { dg-do compile } +! { dg-options } +! PR37988 Edit descriptor checking (compile time) for "T)" +! Test case derived from the reporter. + 8001 FORMAT(//,' SIGNIFICANCE LEVEL =',F7.4, 21H ONE-SIDED AT THE LEFT) ! { dg-error "required with T descriptor" } + end -- 2.30.2