This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/30438] New: Unused variable should raise warning with -Wunused
- From: "fxcoudert at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 11 Jan 2007 16:12:10 -0000
- Subject: [Bug fortran/30438] New: Unused variable should raise warning with -Wunused
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
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