URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [parens_5.f90] - Rev 708
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do run }
! { dg-options "-std=legacy" }
!
! Another case of fallout from the original patch for PR14771
! Testcase by Erik Zeek
module para
contains
function bobo(n)
integer, intent(in) :: n
character(len=(n)) :: bobo ! Used to fail here
bobo = "1234567890"
end function bobo
end module para
program test
use para
implicit none
character*5 c
c = bobo(5)
if (c .ne. "12345") call abort
end program test
! { dg-final { cleanup-modules "para" } }
Go to most recent revision | Compare with Previous | Blame | View Log