gcc/testsuite/gfortran.dg/stfunc_5.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/32724
   4 ! ICE on statement function in specification part of module
   5
   6 MODULE stmt
   7 f(x) = x**2      ! { dg-error "Unexpected STATEMENT FUNCTION" }
   8 END MODULE
   9
  10 ! { dg-final { cleanup-modules "stmt" } }
  11