JohnCampbell
Joined: 16 Feb 2006 Posts: 2555 Location: Sydney
|
Posted: Mon Mar 31, 2008 1:03 am Post subject: ftn95 5.20 warning statement not executed |
|
|
Paul,
the following code gives a warning 133 at the end of the DO loop if compiled with /debug or /check
regards John
! Last change: JDC 31 Mar 2008 10:55 am
subroutine read_historical_vessels
!
character line*140
integer*4 eof
!
! Read berth names
call open_file (11, 'historical_vessel_data.prn')
!
do
call rdline (11, line, eof)
!
if (eof < 0) exit
if (eof < 1) cycle
select case (line(1:10))
case ('$CARGOS')
call read_historical_cargoes
case ('$BERTHS')
call read_historical_berths
case ('$END')
exit
case default
write ( *,*) ' Unrecognised :',trim(line)
write (98,*) ' Unrecognised :',trim(line)
end select
end do
!
call report_historical_vessels (1)
call report_historical_vessels (97)
call report_historical_vessels (9
!
end subroutine read_historical_vessels
[FTN95/Win32 Ver. 5.20.0 Copyright (c) Silverfrost Ltd 1993-2008]
0033) call report_historical_vessels (1)
WARNING - 133: This statement will never be executed
NO ERRORS, 1 WARNING [<READ_HISTORICAL_VESSELS> FTN95/Win32 v5.20.0] |
|