summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>2007-01-24 02:02:52 +0000
committerjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>2007-01-24 02:02:52 +0000
commit9758e9872c381347817c124f5df686e8aab32961 (patch)
treefa39c3c197e6a27c3d7137e56119981b6af404c5
parent4c91beb67fcf3395ae30e177c17f4feae525ccff (diff)
downloadppe42-gcc-9758e9872c381347817c124f5df686e8aab32961.tar.gz
ppe42-gcc-9758e9872c381347817c124f5df686e8aab32961.zip
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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@121100 138bc75d-0d04-0410-961f-82ee72b054a4
-rw-r--r--gcc/testsuite/ChangeLog10
-rw-r--r--gcc/testsuite/gfortran.dg/ctrl-z.f905
-rw-r--r--gcc/testsuite/gfortran.dg/namelist_assumed_char.f907
3 files changed, 22 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index b46cf793da6..4ca9959152a 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 00000000000..7f20d35ef2b
--- /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 00000000000..82f423fe353
--- /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
OpenPOWER on IntegriCloud