gcc/testsuite/gfortran.dg/pdt_33.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/106050
   4 ! The following used to trigger an error recovery ICE by releasing
   5 ! the symbol T before the symbol K which was leading to releasing
   6 ! K twice as it's in T's namespace.
   7 !
   8 ! Contributed by G. Steinmetz <gscfq@t-online.de>
   9
  10 program p
  11    a = 1
  12    type t(k)                  ! { dg-error "Unexpected derived type declaration" }
  13       integer, kind :: k = 4  ! { dg-error "not allowed outside a TYPE definition" }
  14    end type                   ! { dg-error "Expecting END PROGRAM" }
  15 end