24.11.2014 Views

Open Watcom FORTRAN 77 Language Reference

Open Watcom FORTRAN 77 Language Reference

Open Watcom FORTRAN 77 Language Reference

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

<strong>Language</strong> <strong>Reference</strong><br />

2.31 END GUESS Statement<br />

END GUESS<br />

The END GUESS statement is used in conjunction with the structured GUESS statement. The END<br />

GUESS statement marks the end of a series of GUESS-ADMIT blocks.<br />

Example:<br />

CHARACTER CH<br />

READ *, CH<br />

GUESS<br />

IF( CH .LT. ’a’ )QUIT<br />

IF( CH .GT. ’z’ )QUIT<br />

PRINT *, ’Lower case letter’<br />

ADMIT<br />

IF( CH .LT. ’A’ )QUIT<br />

IF( CH .GT. ’Z’ )QUIT<br />

PRINT *, ’Upper case letter’<br />

ADMIT<br />

IF( CH .LT. ’0’ )QUIT<br />

IF( CH .GT. ’9’ )QUIT<br />

PRINT *, ’Digit’<br />

ADMIT<br />

PRINT *, ’Special character’<br />

END GUESS<br />

END<br />

For more information, see the chapter entitled "Program Structure Control Statements" on page 193.<br />

62 END GUESS Statement

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!