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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [substr_6.f90] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do run }
2
! { dg-options "-std=legacy" }
3
!
4
! Check that NULs don't mess up constant substring simplification
5
CHARACTER(5), parameter :: c0(1) = (/ "123" // ACHAR(0) // "5" /)
6
CHARACTER*5 c(1)
7
CHARACTER(1), parameter :: c1(5) = (/ "1", "2", "3", ACHAR(0), "5" /)
8
 
9
c = c0(1)(-5:-8)
10
if (c(1) /= "     ") call abort()
11
c = (/ c0(1)(1:5) /)
12
do i=1,5
13
   if (c(1)(i:i) /= c1(i)) call abort()
14
end do
15
print *, c(1)
16
end

powered by: WebSVN 2.1.0

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