Subversion Repositories openrisc

! { dg-do run }

! Tests the fix for PR38602, a regression caused by a modification

! to the nulling of INTENT_OUT dummies with allocatable components

! that caused a segfault with optional arguments.

!

! Contributed by David Kinniburgh 

!

program test_iso

  type ivs

     character(LEN=1), dimension(:), allocatable :: chars

  end type ivs

  type(ivs) :: v_str

  integer :: i

  call foo(v_str, i)

  if (v_str%chars(1) .ne. "a") call abort

  if (i .ne. 0) call abort

  call foo(flag = i)

  if (i .ne. 1) call abort

contains

  subroutine foo (arg, flag)

    type(ivs), optional, intent(out) :: arg

    integer :: flag

    if (present(arg)) then

      arg = ivs([(char(i+96), i = 1,10)])

      flag = 0

    else

      flag = 1

    end if

  end subroutine

end