fork(2) download
copy 
  1. character*16s
  2. read(*,*)i,j
  3. if(i-j)1,2,3
  4. 1 s=" is less than"
  5. goto4
  6. 2 s=" is equal to"
  7. goto4
  8. 3 s=" is greater than"
  9. 4 print*,i,s,j
  10. end
Success #stdin #stdout 0s 3968KB
comments (?)
stdin
copy 
12 2
stdout
copy 
          12  is greater than           2
https://ideone.com/LPdsJF
language:
Fortran (gfortran 8.3)
created:
8 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!