URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [char_expr_1.f90] - Rev 302
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do "run" }
! PR fortran/36795
! "(str)" (= an expression) was regarded as "str" (= a variable)
! and thus when yy was deallocated so was xx. Result: An invalid
! memory access.
!
program main
implicit none
character (len=10), allocatable :: str(:)
allocate (str(1))
str(1) = "dog"
if (size(str) /= 1 .or. str(1) /= "dog") call abort()
contains
subroutine foo(xx,yy)
character (len=*), intent(in) :: xx(:)
character (len=*), intent(out), allocatable :: yy(:)
allocate (yy(size(xx)))
yy = xx
end subroutine foo
end program main
Go to most recent revision | Compare with Previous | Blame | View Log