14 lines
318 B
Fortran
14 lines
318 B
Fortran
! { dg-do compile }
|
|
!
|
|
! PR 88009: [9 Regression] ICE in find_intrinsic_vtab, at fortran/class.c:2761
|
|
!
|
|
! Contributed by G. Steinmetz <gscfq@t-online.de>
|
|
|
|
module m
|
|
class(*), allocatable :: z
|
|
end
|
|
block data
|
|
use m
|
|
z = 'z' ! { dg-error "assignment statement is not allowed|Unexpected assignment statement" }
|
|
end
|