RosettaCodeData/Task/Execute-Brain-/Fortran/execute-brain--4.f
2023-07-01 13:44:08 -04:00

2 lines
80 B
Fortran

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