Subversion Repositories openrisc_2011-10-31

! { dg-do run }
!
! PR 43256: [OOP] TBP with missing optional arg
!
! Contributed by Janus Weil

module module_myobj

  implicit none

  type :: myobj
  contains
    procedure, nopass :: myfunc
  end type

contains

  integer function myfunc(status)
    integer, optional :: status
    if (present(status)) then
      myfunc = 1
    else
      myfunc = 2
    end if
  end function

end module


program test_optional

  use :: module_myobj
  implicit none

  integer     :: res = 0
  type(myobj) :: myinstance

  res = myinstance%myfunc()
  if (res /= 2) call abort()

end program

! { dg-final { cleanup-modules "module_myobj" } }