blob: ce7ba25c269a89dc8a35a046a3f0d129f737b6db (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
! { 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
|
