From: dfranke <dfranke@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Sun, 16 Mar 2008 10:05:18 +0000 (+0000)
Subject: 2008-03-16  Daniel Franke  <franke.daniel@gmail.com>
X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=commitdiff_plain;h=39332a8e783d89d9c8e0558c66bc219b8ee452f1;hp=82eaf560aa61a71f151729dabc9f376fbb6b1f9d;ds=sidebyside

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 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
+