fork download 
  1. Dimension m(100)
  2. J=o
  3. Do i =1,99
  4. If(mod(i,5).ne.0)then
  5. J=j+1
  6. M(j)=i
  7. Endif
  8. Enddo
  9. Print*,(m(i),i=1,j)
  10. Stop
  11. End
Success #stdin #stdout 0s 5284KB
comments (?)
stdin 
Standard input is empty
stdout 
           1           2           3           4           6           7           8           9          11          12          13          14          16          17          18          19          21          22          23          24          26          27          28          29          31          32          33          34          36          37          38          39          41          42          43          44          46          47          48          49          51          52          53          54          56          57          58          59          61          62          63          64          66          67          68          69          71          72          73          74          76          77          78          79          81          82          83          84          86          87          88          89          91          92          93          94          96          97          98          99
https://ideone.com/coXqpW
language:
Fortran (gfortran 8.3)
created:
3 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!