! { 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 |