PROGRAM Esnek_Toplama
!--------------------------------------------------------
! 08prg01.f95
! 5 sayıya kadar, argümanların elemanların toplamı
!--------------------------------------------------------

 PRINT *,"Topla(1,3) = ", Topla(1,3)
 PRINT *,"Topla(1, 3, 8) = ", Topla(1,3, 8)
 PRINT *,"Topla(1, 3, 8, -4, 3) = ", Topla(1,3,8,-4,3)

CONTAINS

   INTEGER FUNCTION Topla(x1, x2, x3, x4, x5)
   INTEGER, INTENT(IN), OPTIONAL :: x1, x2, x3, x4, x5

                     Topla = 0.0
     IF(PRESENT(x1)) Topla = Topla + x1
     IF(PRESENT(x2)) Topla = Topla + x2
     IF(PRESENT(x3)) Topla = Topla + x3
     IF(PRESENT(x4)) Topla = Topla + x4
     IF(PRESENT(x5)) Topla = Topla + x5

   END FUNCTION Topla


END PROGRAM