Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/array_temporaries_3.f90 @ 127:4c56639505ff
fix function.c and add CbC-example Makefile
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 18:46:58 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { 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