1! { dg-do run }
2! PR libfortran/31210
3program test
4 implicit none
5 integer :: l = 0
6 character(len=20) :: s
7
8 write(s,'(A,I1)') foo(), 0
9 if (trim(s) /= "0") call abort
10
11contains
12
13 function foo()
14 character(len=l) :: foo
15 foo = "XXXX"
16 end function
17
18end program test
19