This is the mail archive of the gcc-bugs@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[Bug fortran/49693] Spurious "unused-variable" warnings for COMMON block module variables.


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]


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]