gcc/testsuite/gfortran.dg/recursive_parameter_1.f90

   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 !
   7 program 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" }
  11 end program recursive_parameter