gcc/testsuite/gfortran.dg/pr87992.f90 - gcc - Git at Google

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