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