33 lines
1.1 KiB
Fortran
33 lines
1.1 KiB
Fortran
! { dg-do run }
|
|
! Test the fix for PR31879 in which the concatenation operators below
|
|
! would cause ICEs because the character lengths were never resolved.
|
|
!
|
|
! Contributed by Vivek Rao <vivekrao4@yahoo.com>
|
|
!
|
|
module str_mod
|
|
character(3) :: mz(2) = (/"fgh","ijk"/)
|
|
contains
|
|
function ccopy(yy) result(xy)
|
|
character (len=*), intent(in) :: yy(:)
|
|
character (len=5) :: xy(size(yy))
|
|
xy = yy
|
|
end function ccopy
|
|
end module str_mod
|
|
!
|
|
program xx
|
|
use str_mod, only: ccopy, mz
|
|
implicit none
|
|
character(2) :: z = "zz"
|
|
character(3) :: zz(2) = (/"abc","cde"/)
|
|
character(2) :: ans(2)
|
|
integer :: i = 2, j = 3
|
|
if (any(ccopy("_&_"//(/"A","B"/)//"?") .ne. (/"_&_A?","_&_B?"/))) call abort ()
|
|
if (any(ccopy(z//zz) .ne. (/"zzabc","zzcde"/))) call abort ()
|
|
if (any(ccopy(z//zz(:)(1:2)) .ne. (/"zzab ","zzcd "/))) call abort ()
|
|
if (any(ccopy(z//mz(:)(2:3)) .ne. (/"zzgh ","zzjk "/))) call abort ()
|
|
|
|
! This was another bug, uncovered when the PR was fixed.
|
|
if (any(ccopy(z//mz(:)(i:j)) .ne. (/"zzgh ","zzjk "/))) call abort ()
|
|
end program xx
|
|
! { dg-final { cleanup-modules "str_mod" } }
|