PROGRAM Toplama
!--------------------------------------------------------
! 07prg03.f95
! İki sayının toplamını Topla fonksiyonu ile hesaplar.
!--------------------------------------------------------
IMPLICIT NONE

! fonksiyon prototipi
INTERFACE Topla_Ornegi
  INTEGER FUNCTION Topla(A, B)
    INTEGER, INTENT(IN) :: A,B
  END FUNCTION Topla
END INTERFACE Topla_Ornegi


INTEGER :: X, Y, Z

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

   Z = Topla(X,Y)

   PRINT *,"Toplam = ", Z 

END PROGRAM Toplama


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