Subversion Repositories openrisc

! { dg-do compile }

! { dg-options "-O2 -ftree-tail-merge -fno-delete-null-pointer-checks -fno-guess-branch-probability" }

!

! based on testsuite/gfortran.dg/alloc_comp_optional_1.f90,

! which was 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