! { dg-do compile } | |
! { dg-options "-std=f95" } | |
! PR fortran/95373 - ICE in build_reference_type, at tree.c:7942 | |
subroutine s (x) | |
complex, parameter :: z = 3 | |
real(z% kind) :: x ! { dg-error "Fortran 2003: KIND part_ref" } | |
type t | |
real :: kind | |
logical :: re | |
end type t | |
type(t) :: b | |
print *, b% kind, b% re | |
print *, z% re ! { dg-error "Fortran 2008: RE or IM part_ref" } | |
end |