re PR fortran/35582 ([4.1/4.2] very simple error gives segmentation fault)

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

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

From-SVN: r133270

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index da901b2e23d988c5109f32461d9b5a3b3853e5d4..7bb0108ef25ebaa1ad4611d352afd1aab95ba3a0 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
+