fork download 
  1.  
  2. do n =2,99
  3. Do i =2,n/2
  4. If(mod(n,i).eq.0)goto 5
  5. Enddo
  6. Print*,n
  7. 5 cycle
  8. Enddo
  9. Stop
  10. End
Success #stdin #stdout 0.01s 5288KB
comments (?)
stdin 
Standard input is empty
stdout 
           2
           3
           5
           7
          11
          13
          17
          19
          23
          29
          31
          37
          41
          43
          47
          53
          59
          61
          67
          71
          73
          79
          83
          89
          97
https://ideone.com/zCwgfB
language:
Fortran (gfortran 8.3)
created:
2 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!