aboutsummaryrefslogtreecommitdiff
path: root/gcc
diff options
context:
space:
mode:
authorJerry DeLisle <jvdelisle@gcc.gnu.org>2007-01-24 02:02:52 +0000
committerJerry DeLisle <jvdelisle@gcc.gnu.org>2007-01-24 02:02:52 +0000
commitfc376903292da0a47025435755ab21dd6aa7dd4c (patch)
treefa39c3c197e6a27c3d7137e56119981b6af404c5 /gcc
parentcecc123540c8207c0cd2bee1e8cca3a27ea1c428 (diff)
downloadgcc-fc376903292da0a47025435755ab21dd6aa7dd4c.zip
gcc-fc376903292da0a47025435755ab21dd6aa7dd4c.tar.gz
gcc-fc376903292da0a47025435755ab21dd6aa7dd4c.tar.bz2
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
Diffstat (limited to 'gcc')
-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 b46cf79..4ca9959 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 0000000..7f20d35ef
--- /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 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