summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/recursive_parameter_1.f90
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