نمونه کد شامل مجموعه ی شرطی IF و حلقه ی تکرار DO

نمونه کد شامل مجموعه ی شرطی IF و حلقه ی تکرار DO

PROGRAM A22

IMPLICIT NONE

REAL::A,B,C

DO

PRINT*,"PLEASE ENTER NUMBER A & B"

READ*,A,B

C=A+B

PRINT*,"FIRST C = ",C

IF (C==50) CYCLE

PRINT*,"END B"

EXIT

END DO

END PROGRAM A22