RosettaCodeData/Task/Extensible-prime-generator/Fortran/extensible-prime-generator-3.f

6 lines
109 B
Fortran

P = NEXTPRIME(100)
DO WHILE (P.LE.150)
...stuff...
P = NEXTPRIME(P)
END DO