From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-bugs-return-206915-listarch-gcc-bugs=gcc.gnu.org@gcc.gnu.org>
Received: (qmail 8951 invoked by alias); 11 Jan 2007 16:12:22 -0000
Received: (qmail 8896 invoked by uid 48); 11 Jan 2007 16:12:10 -0000
Date: Thu, 11 Jan 2007 16:12:00 -0000
Subject: [Bug fortran/30438]  New: Unused variable should raise warning with -Wunused
X-Bugzilla-Reason: CC
Message-ID: <bug-30438-10259@http.gcc.gnu.org/bugzilla/>
Reply-To: gcc-bugzilla@gcc.gnu.org
To: gcc-bugs@gcc.gnu.org
From: "fxcoudert at gcc dot gnu dot org" <gcc-bugzilla@gcc.gnu.org>
Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm
Precedence: bulk
List-Id: <gcc-bugs.gcc.gnu.org>
List-Archive: <http://gcc.gnu.org/ml/gcc-bugs/>
List-Post: <mailto:gcc-bugs@gcc.gnu.org>
List-Help: <mailto:gcc-bugs-help@gcc.gnu.org>
Sender: gcc-bugs-owner@gcc.gnu.org
X-SW-Source: 2007-01/txt/msg00935.txt.bz2

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