Fix ICE for coarray Critical inside module procedure

From-SVN: r231649

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

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();
 }
 
 

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

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