blob: bc0ffcd2305b47272d2b437be52e9e80622d5078 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
! { dg-do compile }
!
! PR fortran/91586
!
! Contributed by G. Steinmetz
!
program p
type t
class(*), allocatable :: a
end type
class(t) :: x, y ! { dg-error "must be dummy, allocatable or pointer" }
y = x ! { dg-error "Nonallocatable variable must not be polymorphic in intrinsic assignment" }
end
|