1! { dg-do compile }
2!
3! PR fortran/52029
4!
5
6elemental subroutine foo()
7  type t
8  end type t
9  class(t), allocatable :: x
10  if (allocated(x)) i = 5
11end
12