2008-03-16 Daniel Franke <franke.daniel@gmail.com>

        PR fortran/35582
        * gfortran.dg/write_invalid_format.f90: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@133270 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index da901b2..7bb0108 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2008-03-16  Daniel Franke  <franke.daniel@gmail.com>
+
+       PR fortran/35582
+       * gfortran.dg/write_invalid_format.f90: New test.
+
 2008-03-15  Richard Guenther  <rguenther@suse.de>
 
        * gcc.dg/tree-ssa/ssa-ccp-16.c: New testcase.
@@ -5,7 +10,7 @@
 2008-03-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
        PR testsuite/35184
-       gfortran.dg/elemental_subroutine_6.f90: New test.
+       * gfortran.dg/elemental_subroutine_6.f90: New test.
 
 2008-03-15  Richard Guenther  <rguenther@suse.de>
 
@@ -21,7 +26,7 @@
 2008-03-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
        PR testsuite/35478
-       gfortran.dg/generic_16.f90: New test.
+       * gfortran.dg/generic_16.f90: New test.
 
 2008-03-15  Hans-Peter Nilsson  <hp@axis.com>
 
@@ -31,7 +36,7 @@
 2008-03-14  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
        PR testsuite/33296
-       gfortran.dg/nearest_4.f90: New test.
+       * gfortran.dg/nearest_4.f90: New test.
 
 2008-03-14  Richard Guenther  <rguenther@suse.de>
 

diff --git a/gcc/testsuite/gfortran.dg/write_invalid_format.f90 b/gcc/testsuite/gfortran.dg/write_invalid_format.f90
new file mode 100644 (file)
index 0000000..fb60313
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/write_invalid_format.f90
@@ -0,0 +1,9 @@
+! { dg-do "compile" }
+! PR fortran/35582 - ICE on invalid format
+! Testcase contributed by
+! Leandro Martinez <leandromartinez DOT spam AT gmail DOT com> 
+
+  real, parameter  :: a = 1.
+  write(*,a) 'test'           ! { dg-error "expression in FORMAT tag" }
+end
+