OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

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

From-SVN: r117514
This commit is contained in:
Tobias Schlüter 2006-10-06 23:40:14 +02:00 committed by Tobias Schlüter
parent 975626a7f4
commit b5b8e31b32
2 changed files with 28 additions and 23 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_constructor_2.f90: Remove '\r's from
line endings.
2006-10-06 Zdenek Dvorak <dvorakz@suse.cz>
PR middle-end/29256

46
gcc/testsuite/gfortran.dg/actual_array_constructor_2.f90
View File

@ -5,30 +5,30 @@
!
! Based on the testscase by Harald Anlauf <anlauf@gmx.de>
!
character(4), dimension(4) :: c1, c2
integer m
m = 4
! Test the original problem
call foo ((/( 'abcd',i=1,m )/), c2)
if (any(c2(:) .ne. (/'abcd','abcd', &
'abcd','abcd'/))) call abort ()
character(4), dimension(4) :: c1, c2
integer m
m = 4
! Test the original problem
call foo ((/( 'abcd',i=1,m )/), c2)
if (any(c2(:) .ne. (/'abcd','abcd', &
'abcd','abcd'/))) call abort ()
! Now get a bit smarter
call foo ((/"abcd", "efgh", "ijkl", "mnop"/), c1) ! worked previously
call foo ((/(c1(i), i = m,1,-1)/), c2) ! was broken
if (any(c2(4:1:-1) .ne. c1)) call abort ()
! gfc_todo: Not Implemented: complex character array constructors
call foo ((/"abcd", "efgh", "ijkl", "mnop"/), c1) ! worked previously
call foo ((/(c1(i), i = m,1,-1)/), c2) ! was broken
if (any(c2(4:1:-1) .ne. c1)) call abort ()
! gfc_todo: Not Implemented: complex character array constructors
call foo ((/(c1(i)(i/2+1:i/2+2), i = 1,4)/), c2) ! Ha! take that..!
if (any (c2 .ne. (/"ab ","fg ","jk ","op "/))) call abort ()
! Check functions in the constructor
call foo ((/(achar(64+i)//achar(68+i)//achar(72+i)// &
achar(76+i),i=1,4 )/), c1) ! was broken
if (any (c1 .ne. (/"AEIM","BFJN","CGKO","DHLP"/))) call abort ()
contains
subroutine foo (chr1, chr2)
character(*), dimension(:) :: chr1, chr2
chr2 = chr1
end subroutine foo
end
call foo ((/(achar(64+i)//achar(68+i)//achar(72+i)// &
achar(76+i),i=1,4 )/), c1) ! was broken
if (any (c1 .ne. (/"AEIM","BFJN","CGKO","DHLP"/))) call abort ()
contains
subroutine foo (chr1, chr2)
character(*), dimension(:) :: chr1, chr2
chr2 = chr1
end subroutine foo
end