!=======================================================================
!   FILE: TEST25.F90
!   DATE: 21 July 2003
!
!   TEST: Optional Argument Test
!
!   Contact: Mark Stevens                   Salford Software Ltd
!=======================================================================

program test
    print*, func(1, 2, 3)
    print*, func(v2 = 2, v3 = 3)

    contains
        function func(v1, v2, v3) result(res)
            integer, intent(in), optional :: v1
            integer, intent(in) :: v2, v3
            integer :: res

            res = v1 + v2 + v3
        end function func
end program test