diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index b46cf793da6080db5c76d1dbc0f1d75a4a7f204c..4ca9959152a8da0599a569a17a3574c8eabe56f8 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 0000000000000000000000000000000000000000..7f20d35ef2b3012a6a8fd41e85f24747a96fb021 --- /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 0000000000000000000000000000000000000000..82f423fe35370824c35875cce2755204d40a2eeb --- /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