Subversion Repositories openrisc_me

! { dg-do run }

! { dg-do run }

! PR 15140: we used to fail an assertion, because we don't use the

! PR 15140: we used to fail an assertion, because we don't use the

! argument of the subroutine directly, but instead use a copy of it.

! argument of the subroutine directly, but instead use a copy of it.

function M(NAMES)

function M(NAMES)

  CHARACTER*(*) NAMES(*)

  CHARACTER*(*) NAMES(*)

  if (any(names(1:2).ne."asdfg")) call abort

  if (any(names(1:2).ne."asdfg")) call abort

  m = LEN(NAMES(1))

  m = LEN(NAMES(1))

END function M

END function M

character(5) :: c(2)

character(5) :: c(2)

c = "asdfg"

c = "asdfg"

if(m(c).ne.5) call abort()

if(m(c).ne.5) call abort()

end

end