diff options
| author | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-10-06 21:50:18 +0000 |
|---|---|---|
| committer | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-10-06 21:50:18 +0000 |
| commit | cf8a34c2f653c68d76bf4f1de361648274ef7068 (patch) | |
| tree | 9d38781a185cc74677564c2c7b96f9d0ad02e506 | |
| parent | fd27912fe22aded3d2ce2b234822ff7108c294a7 (diff) | |
| download | ppe42-gcc-cf8a34c2f653c68d76bf4f1de361648274ef7068.tar.gz ppe42-gcc-cf8a34c2f653c68d76bf4f1de361648274ef7068.zip | |
add missed aprt of patch
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@117517 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/testsuite/gfortran.dg/actual_array_constructor_2.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/actual_array_constructor_2.f90 b/gcc/testsuite/gfortran.dg/actual_array_constructor_2.f90 index 4265aeb35f0..ba05ac698bf 100644 --- a/gcc/testsuite/gfortran.dg/actual_array_constructor_2.f90 +++ b/gcc/testsuite/gfortran.dg/actual_array_constructor_2.f90 @@ -13,7 +13,7 @@ if (any(c2(:) .ne. (/'abcd','abcd', & 'abcd','abcd'/))) call abort () -! Now get a bit smarter
+! 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 () @@ -22,7 +22,7 @@ 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
+! 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 () |
