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

 P:=100; WHILE (P:=NextPrime(P)) <= 150 DO stuff;