blob: 8a13d254f4910044f809618281416c3f227f4c0d (
plain)
1
2
3
4
5
6
7
8
9
10
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
|
