diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2009-07-10 04:37:19 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2009-07-10 04:37:19 +0000 |
| commit | 1d8e1d5d9f87473eb7cae2c3b4109beeb87ce3da (patch) | |
| tree | acac293dc5f471528a2212769313f49c38c37ac8 /gcc/testsuite | |
| parent | b9263ae5900c9881553383d8c66ea25a2b02e52c (diff) | |
| download | gcc-1d8e1d5d9f87473eb7cae2c3b4109beeb87ce3da.tar.gz | |
re PR fortran/39334 (Recusive parameter kind produces segfault)
2009-07-10 Paul Thomas <pault@gcc.gnu.org>
PR fortran/39334
* primary.c (match_kind_param): Return MATCH_NO if the symbol
has no value.
2009-07-10 Paul Thomas <pault@gcc.gnu.org>
PR fortran/39334
* gfortran.dg/recursive_parameter_1.f90: New test.
From-SVN: r149456
Diffstat (limited to 'gcc/testsuite')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/recursive_parameter_1.f90 | 11 |
2 files changed, 16 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 333544c0fd1..48711da3da0 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2009-07-10 Paul Thomas <pault@gcc.gnu.org> + + PR fortran/39334 + * gfortran.dg/recursive_parameter_1.f90: New test. + 2009-07-09 Steven G. Kargl <kargl@gcc.gnu.org> * gfortran.dg/c_kind_tests_2.f03: clean-up leftover module(s). diff --git a/gcc/testsuite/gfortran.dg/recursive_parameter_1.f90 b/gcc/testsuite/gfortran.dg/recursive_parameter_1.f90 new file mode 100644 index 00000000000..8a13d254f49 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/recursive_parameter_1.f90 @@ -0,0 +1,11 @@ +! { dg-do compile } +! Tests the fix for PR39334 in which the recursive parameter declaration +! caused a sgfault. +! +! Reported by James van Buskirk on comp.lang.fortran +! +program recursive_parameter + implicit none + integer, parameter :: dp = kind(1.0_dp) ! { dg-error "Missing kind-parameter" } + write(*,*) dp ! { dg-error "has no IMPLICIT type" } +end program recursive_parameter |