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

 ! { dg-do compile }
 !
 ! PR fortran/32724
 ! ICE on statement function in specification part of module

 MODULE stmt
 f(x) = x**2      ! { dg-error "Unexpected STATEMENT FUNCTION" }
 END MODULE
	! { dg-do compile }
	!
	! PR fortran/32724
	! ICE on statement function in specification part of module

	MODULE stmt
	f(x) = x**2 ! { dg-error "Unexpected STATEMENT FUNCTION" }
	END MODULE