http://gcc.gnu.org/bugzilla/show_bug.cgi?id=49693
Bill Long <longb at cray dot com> changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |longb at cray dot com
--- Comment #1 from Bill Long <longb at cray dot com> 2011-08-12 19:22:50 UTC
---
Had a user support with similar issues when using the MPI module. Test case:
module dmi_mpi_global
use mpi
implicit none
private
logical, save, public :: debug_print
integer(4), save, public :: iu06
integer(4), save, public :: mpi_io_rank = 0
character(LEN=256), save, public :: mpi_decomp_file = 'mpi_decompo.txt'
public :: dmpi_close
contains
subroutine dmpi_close ( flag )
implicit none
logical, intent(in) :: flag
integer(4) :: ierr
if (flag) then
write(*,'(a19)') 'Time to die for MPI'
else
write(iu06,'(a19)') 'Time to die for MPI'
endif
if (.not.flag) close (iu06)
call mpi_finalize(ierr)
end subroutine dmpi_close
end module dmi_mpi_global
> ftn -c -Wall test.f90
test.f90:2:0: warning: 'mpi_bottom' defined but not used [-Wunused-variable]
test.f90:2:0: warning: 'mpi_in_place' defined but not used [-Wunused-variable]
test.f90:2:0: warning: 'mpi_status_ignore' defined but not used
[-Wunused-variable]
test.f90:2:0: warning: 'mpi_statuses_ignore' defined but not used
[-Wunused-variable]
test.f90:2:0: warning: 'mpi_errcodes_ignore' defined but not used
[-Wunused-variable]
test.f90:2:0: warning: 'mpi_unweighted' defined but not used
[-Wunused-variable]
test.f90:2:0: warning: 'mpi_argvs_null' defined but not used
[-Wunused-variable]
test.f90:2:0: warning: 'mpi_argv_null' defined but not used [-Wunused-variable]
