Fix ICE for coarray Critical inside module procedure

From-SVN: r231649

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 869215dbe5ad1449234664bf51fe918931a14984..27dc78cb7890d3d93b077d2ea0e9ddc821fed72d 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2015-12-15  Alessandro Fanfarillo  <fanfarillo.gcc@gmail.com>
+
+       * resolve.c (resolve_critical): Committing symbols of
+       lock variables.
+
 2014-12-14  Tobias Burnus  <burnus@net-b.de>
 
        PR fortran/68850

diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 65a2b7f3f345d9a1165e08dbde5f0d0ebf81c8af..3988b3c4e1c70a86951fa492cfdf5dd10432a585 100644 (file)
--- a/gcc/fortran/resolve.c
+++ b/gcc/fortran/resolve.c
@@ -8852,6 +8852,7 @@ resolve_critical (gfc_code *code)
   symtree->n.sym->as->cotype = AS_EXPLICIT;
   symtree->n.sym->as->lower[0] = gfc_get_int_expr (gfc_default_integer_kind,
                                                   NULL, 1);
+  gfc_commit_symbols();
 }
 
 

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index d08b40046e23889c34aaa39671e330117f915f10..633f8b2afe5b90dffbf9b325e2487ae41f0d359c 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2015-12-15  Alessandro Fanfarillo  <fanfarillo.gcc@gmail.com>
+
+       * gfortran.dg/coarray_critical_1.f90: New.
+
 2015-12-15  Martin Jambor  <mjambor@suse.cz>
 
        PR ipa/68851

diff --git a/gcc/testsuite/gfortran.dg/coarray_critical_1.f90 b/gcc/testsuite/gfortran.dg/coarray_critical_1.f90
new file mode 100644 (file)
index 0000000..4d93bf6
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/coarray_critical_1.f90
@@ -0,0 +1,12 @@
+! { dg-do compile }
+! { dg-options "-fcoarray=lib" }
+!
+
+module m
+ contains
+   subroutine f()
+     critical
+     end critical
+   end subroutine f
+ end module m
+end program