From dec9e22db11897ee4bda060bd9169d612144d37e Mon Sep 17 00:00:00 2001
From: Daniel Franke <dfranke@gcc.gnu.org>
Date: Sat, 14 Jul 2007 09:33:51 -0400
Subject: 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/parse.c | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'gcc/fortran/parse.c')

diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c
index f1f9028..df31bcd 100644
--- a/gcc/fortran/parse.c
+++ b/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;
 	}
-- 
cgit v1.1