gcc/testsuite/gfortran.dg/pr95373_1.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f95" }
   3 ! PR fortran/95373 - ICE in build_reference_type, at tree.c:7942
   4
   5 subroutine s (x)
   6   complex, parameter :: z = 3
   7   real(z% kind)      :: x       ! { dg-error "Fortran 2003: KIND part_ref" }
   8   type t
   9      real    :: kind
  10      logical :: re
  11   end type t
  12   type(t) :: b
  13   print *, b% kind, b% re
  14   print *, z% re                ! { dg-error "Fortran 2008: RE or IM part_ref" }
  15 end