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