[Bug fortran/67076] New: Critical inside a module procedure

["raullaasner at gmail dot com" <gcc-bugzilla at gcc dot gnu dot org>]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=67076

            Bug ID: 67076
           Summary: Critical inside a module procedure
           Product: gcc
           Version: 5.2.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: raullaasner at gmail dot com
  Target Milestone: ---

With OpenCoarrays (1.0.0) and MPICH (3.1.3) I get

  [raul@x220 tests]$ cat Critical.f90
  module m
  contains
    subroutine f()
      critical
      end critical
    end subroutine f
  end module m
  end program
  [raul@x220 tests]$ mpif90 -fcoarray=lib Critical.f90 libcaf_mpi.a 
  f951: internal compiler error: in gfc_enforce_clean_symbol_state, at
  fortran/symbol.c:3749
  Please submit a full bug report,
  with preprocessed source if appropriate.
  See <https://bugs.archlinux.org/> for instructions.

The build is successful only with -fcoarray=single.