Fix compilation failure with C++98 compilers
[official-gcc.git] / gcc / testsuite / gfortran.dg / stfunc_5.f90
blob49170208af5835e9a0919f1e7c02f0e5eaf674d0
1 ! { dg-do compile }
3 ! PR fortran/32724
4 ! ICE on statement function in specification part of module
6 MODULE stmt
7 f(x) = x**2 ! { dg-error "Unexpected STATEMENT FUNCTION" }
8 END MODULE