Fortran77

program circle
      real r, area, pi
      parameter (pi = 3.14159)
 
c This program reads a real number r and prints
c the area of a circle with radius r.
 
      write (*,*) 'Give radius r:'
      read  (*,*) r
      area = pi*r*r
      write (*,*) 'Area = ', area
 
      stop
      end

ubuntu下安装编译器   apt-get install fort77
f77 circle.f

./a.out

 

来源：oschina

链接：https://my.oschina.net/qiyong/blog/4477019