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

3 lines
80 B
FortranFixed
Raw Permalink Normal View History

2016-12-05 22:15:40 +01:00
4 IF (ICHAR(STORE(D)).NE.0) GO TO 3
IF (ICHAR(STORE(D)).NE.0) GO TO 3