24 lines
495 B
Fortran
24 lines
495 B
Fortran
! { dg-do run }
|
|
! { dg-options "-std=legacy" }
|
|
!
|
|
! Another case of fallout from the original patch for PR14771
|
|
! Testcase by Erik Zeek
|
|
module para
|
|
contains
|
|
function bobo(n)
|
|
integer, intent(in) :: n
|
|
character(len=(n)) :: bobo ! Used to fail here
|
|
bobo = "1234567890"
|
|
end function bobo
|
|
end module para
|
|
|
|
program test
|
|
use para
|
|
implicit none
|
|
character*5 c
|
|
c = bobo(5)
|
|
if (c .ne. "12345") call abort
|
|
end program test
|
|
|
|
! { dg-final { cleanup-modules "para" } }
|