1! { dg-do compile } 2! 3! PR 52552: [OOP] ICE when trying to allocate non-allocatable object giving a dynamic type 4! 5! Contributed by <gccbgz.lionm@xoxy.net> 6 7 8 type t 9 integer :: i 10 end type 11 12 class(t) :: o ! { dg-error "must be dummy, allocatable or pointer" } 13 14 allocate(t::o) ! { dg-error "is neither a data pointer nor an allocatable variable" } 15 16end 17