fork download
copy 
  1. do3 i=1,500
  2. j=i
  3. if(mod(i,3))2,1,2
  4. 1 print*,'bzzt'
  5. cycle
  6. 2 goto(1)mod(j,10)-2
  7. j=j/10
  8. if(j>0)goto2
  9. 3 print*,i
  10. end
Success #stdin #stdout 0s 3984KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
           1
           2
 bzzt
           4
           5
 bzzt
           7
           8
 bzzt
          10
          11
 bzzt
 bzzt
          14
 bzzt
          16
          17
 bzzt
          19
          20
 bzzt
          22
 bzzt
 bzzt
          25
          26
 bzzt
          28
          29
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
          40
          41
 bzzt
 bzzt
          44
 bzzt
          46
          47
 bzzt
          49
          50
 bzzt
          52
 bzzt
 bzzt
          55
          56
 bzzt
          58
          59
 bzzt
          61
          62
 bzzt
          64
          65
 bzzt
          67
          68
 bzzt
          70
          71
 bzzt
 bzzt
          74
 bzzt
          76
          77
 bzzt
          79
          80
 bzzt
          82
 bzzt
 bzzt
          85
          86
 bzzt
          88
          89
 bzzt
          91
          92
 bzzt
          94
          95
 bzzt
          97
          98
 bzzt
         100
         101
 bzzt
 bzzt
         104
 bzzt
         106
         107
 bzzt
         109
         110
 bzzt
         112
 bzzt
 bzzt
         115
         116
 bzzt
         118
         119
 bzzt
         121
         122
 bzzt
         124
         125
 bzzt
         127
         128
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
         140
 bzzt
         142
 bzzt
 bzzt
         145
         146
 bzzt
         148
         149
 bzzt
         151
         152
 bzzt
         154
         155
 bzzt
         157
         158
 bzzt
         160
         161
 bzzt
 bzzt
         164
 bzzt
         166
         167
 bzzt
         169
         170
 bzzt
         172
 bzzt
 bzzt
         175
         176
 bzzt
         178
         179
 bzzt
         181
         182
 bzzt
         184
         185
 bzzt
         187
         188
 bzzt
         190
         191
 bzzt
 bzzt
         194
 bzzt
         196
         197
 bzzt
         199
         200
 bzzt
         202
 bzzt
 bzzt
         205
         206
 bzzt
         208
         209
 bzzt
         211
         212
 bzzt
         214
         215
 bzzt
         217
         218
 bzzt
         220
         221
 bzzt
 bzzt
         224
 bzzt
         226
         227
 bzzt
         229
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
         241
         242
 bzzt
         244
         245
 bzzt
         247
         248
 bzzt
         250
         251
 bzzt
 bzzt
         254
 bzzt
         256
         257
 bzzt
         259
         260
 bzzt
         262
 bzzt
 bzzt
         265
         266
 bzzt
         268
         269
 bzzt
         271
         272
 bzzt
         274
         275
 bzzt
         277
         278
 bzzt
         280
         281
 bzzt
 bzzt
         284
 bzzt
         286
         287
 bzzt
         289
         290
 bzzt
         292
 bzzt
 bzzt
         295
         296
 bzzt
         298
         299
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
         400
         401
 bzzt
 bzzt
         404
 bzzt
         406
         407
 bzzt
         409
         410
 bzzt
         412
 bzzt
 bzzt
         415
         416
 bzzt
         418
         419
 bzzt
         421
         422
 bzzt
         424
         425
 bzzt
         427
         428
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
 bzzt
         440
 bzzt
         442
 bzzt
 bzzt
         445
         446
 bzzt
         448
         449
 bzzt
         451
         452
 bzzt
         454
         455
 bzzt
         457
         458
 bzzt
         460
         461
 bzzt
 bzzt
         464
 bzzt
         466
         467
 bzzt
         469
         470
 bzzt
         472
 bzzt
 bzzt
         475
         476
 bzzt
         478
         479
 bzzt
         481
         482
 bzzt
         484
         485
 bzzt
         487
         488
 bzzt
         490
         491
 bzzt
 bzzt
         494
 bzzt
         496
         497
 bzzt
         499
         500
https://ideone.com/2GKoX8
language:
Fortran (gfortran 8.3)
created:
9 years 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!