OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [char_length_13.f90] - Rev 694

Compare with Previous | Blame | View Log

! { dg-do compile }
!
! PR fortran/38095
!
! Contributed by Vivek Rao
!
! Compiling the program below gave an ICE
!
module bar
  implicit none
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) // 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 foo(labels)
  character (len=*), intent(in) :: labels(:)
  print*,"size(labels)=",size(labels)
end subroutine foo
subroutine xmain()
  call foo(trim_append(["a"],same(["b"])))
end subroutine xmain
end module bar

program main
  use bar
  call xmain()
end program main

! { dg-final { cleanup-modules "bar" } }

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.