blob: e103b6db4a4c1df64e93ed8ee3d4573d0c052d91 [file] [log] [blame]
! { dg-do compile }
! { dg-options "" }
!
! 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