program main
  !
  ! Sample program of FORMAT
  !
  implicit none
  integer :: i,j
  real :: r,s

  write(*,*) 'Input I and J'
  write(*,*) 'I, J = ?'
  read(*,*) i,j

  write(*,*) 'Input R and S'
  write(*,*) 'R, S = ?'
  read(*,*) r,s

  write(*,*) 'I =',i,'J =',j  ! Free format
  write(*,*) 'R =',r,'S =',s  ! Free format

  write(*,1) i,j
1 format(1x,'I =',i4,'    J =',i4)

  write(*,2) r,s
2 format(1x,'R =',f10.5,'    S =',f10.5)

end program main

実行結果