summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/array_temporaries_3.f90
blob: 929a4c08e6bcfc0bce46786a0f0178b805e4bbc8 (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
27
28
29
30
31
! { dg-do run }
! PR38119 - The scalarizer got the loop size wrong
! for the temporary coming from the call to 'same'.
!
! Contributed by Mikael Morin <mikael.morin@tele2.fr>
! based on a program by Vivek Rao.
!
module bar
  implicit none
  character(len = 2) :: c(1)
contains
  elemental function trim_append (xx,yy) result(xy)
    character (len = *), intent(in) :: xx,yy
    character (len = len (xx) + len (yy)) :: xy
    xy = trim (xx) // trim (yy)
  end function trim_append
  function same(xx) result(yy)
    character (len = *), intent(in) :: xx(:)
    character (len = len (xx))       :: yy(size (xx))
    yy = xx
  end function same
  subroutine xmain()
    c =  trim_append(["a"],same(["b"]))  ! The problem occurred here
  end subroutine xmain
end module bar
  use bar
  call xmain
  if (c(1) .ne. "ab") call abort
end
! { dg-final { cleanup-modules "bar" } }