! ! =====> Program - P34.F90 ! ! ! Reading and testing LOGICAL variables ! ! LOGICAL SINGLE CHARACTER (LEN=15) :: NAME ! PRINT *, 'This is Program >> P34 - Testing with LOGICAL data' ! ! ! Tell program where data for READ * is coming from OPEN(UNIT=5, FILE='P34.DAT') ! UNIT=5 is the default input ! L1: DO READ * ,NAME,SINGLE IF(NAME == 'DONE')EXIT ! leave the DO loop IF(SINGLE)THEN PRINT * ,NAME,'IS SINGLE' ELSE READ * ,MARRGS PRINT * ,NAME,'WAS MARRIED', & MARRGS,'TIMES' ! a continued line ENDIF END DO L1 ! the EXIT brings control to next statement END ! this terminates execution phase DATA: 'Jane Simpson' T 'Mary Morrison' F 3 'DONE' T OUTPUT: Program entered This is Program >> P34 - Testing with LOGICAL data Jane Simpson IS SINGLE Mary Morrison WAS MARRIED 3 TIMES
Page builder: Charles Boivin
Last modified: 11/07/95