Ideone.com

fork download

program Addnumbers
real::s,b,result
write(*,*)' :'
read(*,*)s,b
result=s*b
write(*,*) 'result=',result
end program Addnumbers

Success #stdin #stdout 0s 5320KB

stdin

5
4

stdout

  :
 result=   20.0000000

https://ideone.com/wwlZqj

language:

Fortran (gfortran 8.3)

created:

visibility:

public

Share or Embed source code

The brand new service which powers Ideone!

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