From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Wed, 24 Jan 2007 02:02:52 +0000 (+0000)
Subject: re PR fortran/30532 (^Z as EOF?)
X-Git-Tag: releases/gcc-4.3.0~7299
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=fc376903292da0a47025435755ab21dd6aa7dd4c;p=thirdparty%2Fgcc.git

re PR fortran/30532 (^Z as EOF?)

2007-01-23  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/30532
	* gfortran.dg/ctrl-z.f90:  New test.

2007-01-23  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/30481
	* gfortran.dg/namelist_assumed_char.f90:  New test.

From-SVN: r121100
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index b46cf793da60..4ca9959152a8 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,13 @@
+2007-01-23  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/30532
+	* gfortran.dg/ctrl-z.f90:  New test.
+	
+2007-01-23  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/30481
+	* gfortran.dg/namelist_assumed_char.f90:  New test.
+
 2007-01-23  Simon Martin  <simartin@users.sourceforge.net>
 
 	PR c++/27492
diff --git a/gcc/testsuite/gfortran.dg/ctrl-z.f90 b/gcc/testsuite/gfortran.dg/ctrl-z.f90
new file mode 100644
index 000000000000..7f20d35ef2b3
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/ctrl-z.f90
@@ -0,0 +1,5 @@
+! { dg-do compile }
+! PR 30532 Ctrl-Z in source file
+! Test case from PR.  Submitted by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+      print *,""
+      end
diff --git a/gcc/testsuite/gfortran.dg/namelist_assumed_char.f90 b/gcc/testsuite/gfortran.dg/namelist_assumed_char.f90
new file mode 100644
index 000000000000..82f423fe3537
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/namelist_assumed_char.f90
@@ -0,0 +1,7 @@
+! { dg-do compile }
+! PR30481 Assumed size character is not allowed in namelist.
+! Test case from PR, submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>
+subroutine foo(c)
+  character*(*) c
+  namelist /abc/ c  ! { dg-error "Assumed character length" }
+end subroutine