blob: ad83920fca50cf6494f12c084d30e9dd331871ad [file] [log] [blame]
! { dg-do compile }
! { dg-options "-fcoarray=single" }
!
! Contributed by G Steinmetz <gscfq@t-online.de>
!
program p
type t
integer, allocatable :: t
end type
type(t) :: x
print *, transfer(1, x) ! { dg-error "cannot have ALLOCATABLE components" }
end