Subversion Repositories openrisc

! { dg-do compile }

! { dg-options "" }

! [option to disable -pedantic as assumed character length

!  functions are obsolescent]

!

! PR fortran/41235

!

character(len=*) function func()

  func = 'ABC'

end function func

subroutine test(i)

  integer :: i

  character(len=i), external :: func

  print *, func()

end subroutine test

subroutine test2(i)

  integer :: i

  character(len=i) :: func

  print *, func()

end subroutine test2

call test(2)

call test2(2)

end