path: root/gcc/testsuite/gfortran.dg/pr87992.f90

! { dg-do compile }
subroutine s(x)
   class(*), allocatable :: x
   x = ''
end