diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/recursive_parameter_1.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/recursive_parameter_1.f90 | 11 |
1 files changed, 11 insertions, 0 deletions
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 000000000..8a13d254f --- /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 |