diff options
| author | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-10-06 21:40:14 +0000 |
|---|---|---|
| committer | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-10-06 21:40:14 +0000 |
| commit | ecfed7a2cc19c7b913a8f4752c138aac5ae4b01d (patch) | |
| tree | 22a280b65c8462946de7e2972cfaad234cb61c08 | |
| parent | 9b6564b5c181e334447604b1250f1044e10d357c (diff) | |
| download | ppe42-gcc-ecfed7a2cc19c7b913a8f4752c138aac5ae4b01d.tar.gz ppe42-gcc-ecfed7a2cc19c7b913a8f4752c138aac5ae4b01d.zip | |
* gfortran.dg/actual_array_constructor_2.f90: Remove '\r's from
line endings.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@117514 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/actual_array_constructor_2.f90 | 46 |
2 files changed, 28 insertions, 23 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 9beac3fc86d..86b892cfc34 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -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 diff --git a/gcc/testsuite/gfortran.dg/actual_array_constructor_2.f90 b/gcc/testsuite/gfortran.dg/actual_array_constructor_2.f90 index 0a86b70d7bf..4265aeb35f0 100644 --- a/gcc/testsuite/gfortran.dg/actual_array_constructor_2.f90 +++ b/gcc/testsuite/gfortran.dg/actual_array_constructor_2.f90 @@ -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
\ No newline at end of file + 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 |
