RosettaCodeData/Task/Execute-Brain-/Fortran/execute-brain--4.f

3 lines
80 B
Fortran

4 IF (ICHAR(STORE(D)).NE.0) GO TO 3
IF (ICHAR(STORE(D)).NE.0) GO TO 3