re PR fortran/32724 (ICE on statement function in specification part of module)

gcc/fortran:
2007-07-14  Paul Thomas  <pault@gcc.gnu.org>

        PR fortran/32724
        * parse.c (parse_spec): Emit error on unexpected statement
        function.

gcc/testsuite:
2007-07-14  Daniel Franke  <franke.daniel@gmail.com>

        PR fortran/32724
        * gfortran.dg/stfunc_5.f90: New test.

From-SVN: r126638

gcc/fortran/ChangeLog

+2007-07-14  Paul Thomas  <pault@gcc.gnu.org>
+
+	PR fortran/32724
+	* parse.c (parse_spec): Emit error on unexpected statement
+	function.
+
 2007-07-13  Daniel Franke  <franke.daniel@gmail.com>
 
 	* invoke.texi: Unified upper- and lower-case in menus.

gcc/fortran/parse.c

@@ -1902,6 +1902,13 @@ loop:
 
 	  break;
 
+	case ST_STATEMENT_FUNCTION:
+	  if (gfc_current_state () == COMP_MODULE)
+	    {
+	      unexpected_statement (st);
+	      break;
+	    }
+
 	default:
 	  break;
 	}

gcc/testsuite/ChangeLog

+2007-07-14  Daniel Franke  <franke.daniel@gmail.com>
+
+	PR fortran/32724
+	* gfortran.dg/stfunc_5.f90: New test.
+
 2007-07-14  Uros Bizjak  <ubizjak@gmail.com>
 
 	* lib/target-supports.exp (check_effective_target_vect_aligned_arrays):

gcc/testsuite/gfortran.dg/stfunc_5.f90

+! { 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-final { cleanup-modules "stmt" } }
+