re PR fortran/69498 (ICE on disjunct cases with displaced or incomplete embedded...

2017-04-10  Nicolas Koenig  <koenigni@student.ethz.ch>
            Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/69498
	* module.c (gfc_match_submodule): Add error
	if function is called in the wrong state.

2017-04-10  Nicolas Koenig  <koenigni@student.ethz.ch>

	PR fortran/69498
	* gfortran.dg/submodule_unexp.f90: Modified test
	to account for new error.
	* gfortran.dg/submodule_twice.f90: New Test

Co-Authored-By: Paul Thomas <pault@gcc.gnu.org>
From-SVN: r246826

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 7825295745b602545206cd8c3154cef68255163a..9f31ad946d83b682dd70d32abfeac999d14f76c1 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,11 @@
+
+2017-04-10  Nicolas Koenig  <koenigni@student.ethz.ch>
+            Paul Thomas  <pault@gcc.gnu.org>
+
+       PR fortran/69498 
+       * module.c (gfc_match_submodule): Add error
+       if function is called in the wrong state.
+
 2017-04-10  Janus Weil  <janus@gcc.gnu.org>
 
        PR fortran/80046

diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c
index 60adde3c63586bb572a934ee9200f5b6f407d3e3..28b8ea1db57ba8ba196b80de92ae506352d1236a 100644 (file)
--- a/gcc/fortran/module.c
+++ b/gcc/fortran/module.c
@@ -741,6 +741,13 @@ gfc_match_submodule (void)
   if (!gfc_notify_std (GFC_STD_F2008, "SUBMODULE declaration at %C"))
     return MATCH_ERROR;
 
+  if (gfc_current_state () != COMP_NONE)
+    {
+      gfc_error ("SUBMODULE declaration at %C cannot appear within "
+                "another scoping unit");
+      return MATCH_ERROR;
+    }
+
   gfc_new_block = NULL;
   gcc_assert (module_list == NULL);
 

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 746150b60c5562b80c3fa6c2527eeaf6a71fdb2f..21043924bebcf7581b608cd8bcd316a354ab9010 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,10 @@
+2017-04-10  Nicolas Koenig  <koenigni@student.ethz.ch>
+
+       PR fortran/69498 
+       * gfortran.dg/submodule_unexp.f90: Modified test
+       to account for new error.
+       * gfortran.dg/submodule_twice.f90: New Test
+
 2017-04-10  Jakub Jelinek  <jakub@redhat.com>
 
        PR c++/80176

diff --git a/gcc/testsuite/gfortran.dg/submodule_twice.f90 b/gcc/testsuite/gfortran.dg/submodule_twice.f90
new file mode 100644 (file)
index 0000000..fdb4dcb
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/submodule_twice.f90
@@ -0,0 +1,7 @@
+! { dg-do compile }
+! PR fortran/69498
+! This used to ICE
+program main
+    submodule (m) sm ! { dg-error "SUBMODULE declaration at" }
+    submodule (m2) sm2  ! { dg-error "SUBMODULE declaration at" }
+end program

diff --git a/gcc/testsuite/gfortran.dg/submodule_unexp.f90 b/gcc/testsuite/gfortran.dg/submodule_unexp.f90
index 43a055349d8baf679776444eefdbc920cd93bcb6..39b57a585e715afd2990bc72f451f94cc5a7b6cd 100644 (file)
--- a/gcc/testsuite/gfortran.dg/submodule_unexp.f90
+++ b/gcc/testsuite/gfortran.dg/submodule_unexp.f90
@@ -3,6 +3,6 @@
 ! This used to ICE
 program p
    type t
-   submodule (m) sm ! { dg-error "Unexpected SUBMODULE statement at" }
+   submodule (m) sm ! { dg-error "SUBMODULE declaration at" }
    end type
 end