fork(2) download 
  1. program TEST
  2. real f,g
  3. integer n,k,m
  4.     f=123.405721
  5.     n=Int((f-float(Int(f)))*10000)
  6.     do 10 k=1,4
  7.        if (Mod(n,10) .ne. 0) Goto 11
  8.        print 20
  9.        Goto 100
  10. 11     n=n/10       
  11. 10  continue 
  12.     print 21
  13. 100 stop
  14. 20  Format('Yes!')
  15. 21  Format('No...')
  16. end
Success #stdin #stdout 0s 14920KB
comments (?)
stdin 
Standard input is empty
stdout 
Yes!
https://ideone.com/wBvos3
language:
Fortran (gfortran 8.3)
created:
5 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!