1! { dg-do compile }
2! { dg-additional-options "-fdump-tree-original" }
3!
4! PR fortran/97927
5!
6! Did ICE due to the in tree-nested.c due to {clobber}
7!
8
9module mpi2
10 interface
11   subroutine MPI_Allreduce(i)
12     implicit none
13     INTEGER, OPTIONAL, INTENT(OUT) :: i
14   end subroutine MPI_Allreduce
15 end interface
16end module
17
18module modmpi
19  implicit none
20  integer ierror  ! module variable = context NAMESPACE_DECL
21end module
22
23subroutine exxengy
24  use modmpi
25  use mpi2, only: mpi_allreduce
26  implicit none
27
28  ! intent(out) implies: ierror = {clobber}
29  call mpi_allreduce(ierror)
30
31contains
32  subroutine zrho2
33    return
34  end subroutine
35end subroutine
36
37! { dg-final { scan-tree-dump "ierror = {CLOBBER};" "original" } }
38