blob: 7da3d38c09deef063c0e961be8cf4fa8c17ba439 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
! { dg-do run }
program strtest
implicit none
character(len=:), allocatable:: my_str
integer, parameter :: slen_init = 7
integer :: slen = slen_init
my_str = fstr(slen)
if (slen /= slen_init .or. len(my_str) /= slen .or. my_str /= ' ') then
STOP 1
endif
contains
function fstr(strlen)
integer, value :: strlen
character(len=strlen)::fstr
strlen = 17 ! Make sure strlen was really passed by value
fstr = ' '
end function fstr
end program strtest
|
