1! { dg-do compile }
2! Tests the fix for PR39334 in which the recursive parameter declaration
3! caused a sgfault.
4!
5! Reported by James van Buskirk on comp.lang.fortran
6!
7program recursive_parameter
8   implicit none
9   integer, parameter :: dp = kind(1.0_dp) ! { dg-error "Missing kind-parameter" }
10   write(*,*) dp ! { dg-error "has no IMPLICIT type" }
11end program recursive_parameter
12