mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
14 lines
298 B
Fortran
14 lines
298 B
Fortran
! { dg-do compile }
|
|
! { dg-options "-fno-realloc-lhs" }
|
|
!
|
|
! PR fortran/43366
|
|
!
|
|
! Invalid assignment to an allocatable polymorphic var.
|
|
!
|
|
type t
|
|
end type t
|
|
class(t), allocatable :: var
|
|
|
|
var = t() ! { dg-error "Assignment to an allocatable polymorphic variable at .1. requires '-frealloc-lhs'" }
|
|
end
|