[Bug fortran/30438] New: Unused variable should raise warning with -Wunused

["fxcoudert at gcc dot gnu dot org" <gcc-bugzilla@gcc.gnu.org>]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 1413 bytes --]

Just so that I don't forget, in the following code, t is set but never used:

  integer, parameter :: nconf = 4000, nmol = 300
  integer, parameter :: nhist = 200
  real, parameter :: delta = 0.05

  integer :: conf, i, cote, idO, idH1, idH2
  integer(kind=8) :: hist(2,2,nhist)
  real :: t, dist(2,3*nmol)

  open(10,file="e_dist.moy")
  open(20,file="cat_dist.moy")
  do conf = 1, nconf
    read(10,*) t, dist(1,:)
    read(20,*) t, dist(2,:)
    do i = 1, nmol
      if (dist(1,3*i-2) < dist(2,3*i-2)) then
        ! Côté électron
        cote = 1
      else
        ! Côté cation
        cote = 2
      end if
      idO  = 1 + int(dist(cote,3*i-2) / delta)
      idH1 = 1 + int(dist(cote,3*i-1) / delta)
      idH2 = 1 + int(dist(cote, 3*i ) / delta)

      if (idO <= nhist) hist(cote,1,idO) = hist(cote,1,idO) + 1_8
      if (idH1 <= nhist) hist(cote,2,idH1) = hist(cote,2,idH1) + 1_8
      if (idH2 <= nhist) hist(cote,2,idH2) = hist(cote,2,idH2) + 1_8
    end do
  end do
  close(10)
  close(20)

  end


-- 
           Summary: Unused variable should raise warning with -Wunused
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: fxcoudert at gcc dot gnu dot org


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=30438