program main
  !
  ! Sample program of four arithmetic operations and output
  !
  implicit none
  real :: a,b,c,d,e,f

  a=9
  b=18

  c=a+b
  d=a-b
  e=a*b
  f=a/b

  write(*,*) a,'+',b,'=',c
  write(*,*) a,'-',b,'=',d
  write(*,*) a,'*',b,'=',e
  write(*,*) a,'/',b,'=',f

end program main

実行結果

program main ! ! Sample program of four arithmetic operations and output ! implicit none real :: a,b,c,d,e,f a=9 b=18 c=a+b d=a-b e=a*b f=a/b write(*,*) a,'+',b,'=',c write(*,*) a,'-',b,'=',d write(*,*) a,'*',b,'=',e write(*,*) a,'/',b,'=',f end program main 実行結果

program main ! ! Sample program of four arithmetic operations and output ! implicit none real :: a,b,c,d,e,f a=9 b=18 c=a+b d=a-b e=ab f=a/b write(,) a,'+',b,'=',c write(,) a,'-',b,'=',d write(,) a,'',b,'=',e write(,) a,'/',b,'=',f end program main
実行結果