PROGRAM Toplama
!--------------------------------------------------------
! 07prg01.f95
! İki sayının toplamını Topla fonksiyonu ile hesaplar.
!--------------------------------------------------------
IMPLICIT NONE
INTEGER :: X, Y, Z

   PRINT *,"Iki sayı girin:"
   READ *, X, Y

   Z = Topla(X,Y)

   PRINT *,"Toplam = ", Z 


CONTAINS

   INTEGER FUNCTION Topla(A, B)
   INTEGER, INTENT(IN) :: A,B
         Topla = A + B
   END FUNCTION Topla

END PROGRAM