procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

actual_array_substr_2.f90: Remove '\r's from line endings.

Browse source 
* gfortran.dg/actual_array_substr_2.f90: Remove '\r's from
line endings.

From-SVN: r117518
This commit is contained in:
Tobias Schlüter 2006-10-07 00:02:43 +02:00 • committed by Tobias Schlüter
parent dfe4ab155e
commit f5b2d77b6c
2 changed files with 23 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,8 @@
2006-10-06 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
* gfortran.dg/actual_array_substr_2.f90: Remove '\r's from
line endings.
2006-10-06 Maxim Kuvyrkov <mkuvyrkov@ispras.ru> 2006-10-06 Maxim Kuvyrkov <mkuvyrkov@ispras.ru>
PR rtl-optimization/29128 PR rtl-optimization/29128

36
gcc/testsuite/gfortran.dg/actual_array_substr_2.f90
View file

@ -7,38 +7,38 @@
! !
! Based on the testscase by Harald Anlauf <anlauf@gmx.de> ! Based on the testscase by Harald Anlauf <anlauf@gmx.de>
! !
program pr28174 program pr28174
implicit none implicit none
character(len=12) :: teststring(2) = (/ "abc def ghij", & character(len=12) :: teststring(2) = (/ "abc def ghij", &
"klm nop qrst" /) "klm nop qrst" /)
character(len=12) :: a(2), b(2), c(2), d(2) character(len=12) :: a(2), b(2), c(2), d(2)
integer :: m = 7, n integer :: m = 7, n
a = teststring a = teststring
b = a b = a
c = a c = a
d = a d = a
n = m - 4 n = m - 4
! Make sure that variable substring references work. ! Make sure that variable substring references work.
call foo (a(:)(m:m+5), c(:)(n:m+2), d(:)(5:9)) call foo (a(:)(m:m+5), c(:)(n:m+2), d(:)(5:9))
if (any (a .ne. teststring)) call abort () if (any (a .ne. teststring)) call abort ()
if (any (b .ne. teststring)) call abort () if (any (b .ne. teststring)) call abort ()
if (any (c .ne. (/"ab456789#hij", & if (any (c .ne. (/"ab456789#hij", &
"kl7654321rst"/))) call abort () "kl7654321rst"/))) call abort ()
if (any (d .ne. (/"abc 23456hij", & if (any (d .ne. (/"abc 23456hij", &
"klm 98765rst"/))) call abort () "klm 98765rst"/))) call abort ()
contains contains
subroutine foo (w, x, y) subroutine foo (w, x, y)
character(len=*), intent(in) :: w(:) character(len=*), intent(in) :: w(:)
character(len=*), intent(inOUT) :: x(:) character(len=*), intent(inOUT) :: x(:)
character(len=*), intent(OUT) :: y(:) character(len=*), intent(OUT) :: y(:)
character(len=12) :: foostring(2) = (/"0123456789#$" , & character(len=12) :: foostring(2) = (/"0123456789#$" , &
"$#9876543210"/) "$#9876543210"/)
! This next is not required by the standard but tests the ! This next is not required by the standard but tests the
! functioning of the gfortran implementation. ! functioning of the gfortran implementation.
! if (all (x(:)(3:7) .eq. y)) call abort () ! if (all (x(:)(3:7) .eq. y)) call abort ()
x = foostring (:)(5 : 4 + len (x)) x = foostring (:)(5 : 4 + len (x))
y = foostring (:)(3 : 2 + len (y)) y = foostring (:)(3 : 2 + len (y))
end subroutine foo end subroutine foo
end program pr28174 end program pr28174