1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
! Test for https://github.com/lfortran/lfortran/issues/5901
! Allocatable scalar character string with merge and concatenation
! Exact MRE from issue body
module integertostring
implicit none
integer :: n(2) = [42,-1]
contains
pure function i0(n)
character(:),allocatable :: i0
integer,intent(in) :: n
character(range(n)+2) :: result
write(result,"(I0)") n
i0 = trim(adjustl(result))
end function i0
end module integertostring
program initialtest
use integertostring, only: i0, n
implicit none
character(:),allocatable:: string
string = 'The answer is '//merge(i0(n(1)),i0(n(2)),n(1)>0)//'.'
print *,'"'//string//'"'
if (string /= 'The answer is 42.') error stop
end program initialtest
|
