From: Daniel Franke <dfranke@gcc.gnu.org>
Date: Sun, 16 Mar 2008 10:05:18 +0000 (-0400)
Subject: re PR fortran/35582 ([4.1/4.2] very simple error gives segmentation fault)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=c2339253731ae37f06db11cde631cc476ebf112d;p=gcc.git

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 da901b2e23d..7bb0108ef25 100644
--- 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
index 00000000000..fb60313ef07
--- /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
+