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 b46cf793da6080db5c76d1dbc0f1d75a4a7f204c..4ca9959152a8da0599a569a17a3574c8eabe56f8 100644 (file)
--- 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 (file)
index 0000000..7f20d35
--- /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 *,"\1a"
+      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 (file)
index 0000000..82f423f
--- /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