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