From fc376903292da0a47025435755ab21dd6aa7dd4c Mon Sep 17 00:00:00 2001
From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Wed, 24 Jan 2007 02:02:52 +0000
Subject: [PATCH] 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
---
gcc/testsuite/ChangeLog | 10 ++++++++++
gcc/testsuite/gfortran.dg/ctrl-z.f90 | 5 +++++
gcc/testsuite/gfortran.dg/namelist_assumed_char.f90 | 7 +++++++
3 files changed, 22 insertions(+)
create mode 100644 gcc/testsuite/gfortran.dg/ctrl-z.f90
create mode 100644 gcc/testsuite/gfortran.dg/namelist_assumed_char.f90
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
--
GitLab