Opened 18 years ago

Closed 18 years ago

Last modified 16 years ago

#61 closed defect (fixed)

Bug in cal_generic.f90

Reported by: Dave Offiler Owned by: Dave Offiler
Priority: normal Milestone:
Component: ROPP (all) Version: 0.8
Keywords: Cc:

Description

In ropp_tools/flib/calgeneric.f90: 

SUBROUTINE CAL_GETARG(n, argn)
INTEGER(4) CHARACTER(LEN=*) argn
INTENT(IN) :: n
INTENT(OUT) :: argn
...
CALL GETARG(n1, argn)

NAG compiler issues a waring of unused variable 'n'. Clearly 'n1' in the CALL should be 'n' as a n1 is not defined anywhere (and an IMPLICIT NONE would have shwn this). This is a real bug as n1 is undefined and could return any command line argument.

Change history (2)

comment:1 by Dave Offiler, 18 years ago

Resolution: → fixed
Status: new → closed

Solution: change 'n1' to 'n' in CALL GETARG

comment:2 by (none), 16 years ago

Milestone: 0.9

Milestone 0.9 deleted

Note: See TracTickets for help on using tickets.