1! { dg-do compile }
2! { dg-options "-fcoarray=single" }
3!
4! PR fortran/43366
5!
6! Invalid assignment to an allocatable polymorphic var.
7!
8type t
9end type t
10class(t), allocatable :: caf[:]
11
12caf = t() ! { dg-error "Assignment to polymorphic coarray at .1. is not permitted" }
13end
14