fatura-compras.f90

program teste
   character (len=15) :: produto
   integer :: id 
   real :: preco, s = 0.0
   produto = 'Bolacha'
   id = 1
   preco = 1.24
   
   print *,''
100 format(30("-"))   
   print 100
   print *,'    Detalhes do produto' 
   print 100
   print 101
101 format (4x,'Produto', 7x, 'Id', 3x, 'Preço')
   print '(30("="))'
   
   print 200, produto, id, preco 
200 format(1x, a, 2x, i3.3, 2x, f5.2) 
   
   produto = "Massa"; id=4; preco=12.3456
   s = s + preco
   print 200, produto, id, preco 
   produto = "Graxa"; id=8; preco=32.87
    s = s + preco
   print 200, produto, id, preco 
   produto = "Bicileta Caloi"; id=3; preco=2.87
    s = s + preco
   print 200, produto, id, preco 

   print 201, s
   
201 format(30("-"),/,14x," Total: ",1x,f5.2,2/)

end program teste

(p34dj19)cabox@box-codeanywhere:~/workspace/f$ gfortran teste.f90; ./a.out;

------------------------------
     Detalhes do produto
------------------------------
    Produto       Id   Preço
==============================
 Bolacha          001   1.24
 Massa            004  12.35
 Graxa            008  32.87
 Bicileta Caloi   003   2.87
------------------------------
               Total:  48.09


(p34dj19)cabox@box-codeanywhere:~/workspace/f$