gcc/testsuite/gfortran.dg/module_variable_3.f90

   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
   9 module 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
  16 end module
  17
  18 module modmpi
  19   implicit none
  20   integer ierror  ! module variable = context NAMESPACE_DECL
  21 end module
  22
  23 subroutine 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
  31 contains
  32   subroutine zrho2
  33     return
  34   end subroutine
  35 end subroutine
  36
  37 ! { dg-final { scan-tree-dump "ierror = {CLOBBER};" "original" } }