forums.silverfrost.com

[JohnCampbell]

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]

[PaulLaidler]

Thank you for the report.
We have fixed the regression and this will be included in the next release.