Skip to content
Projects
Groups
Snippets
Help
This project
Loading...
Sign in / Register
Toggle navigation
R
riscv-gcc-1
Overview
Overview
Details
Activity
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
lvzhengyang
riscv-gcc-1
Commits
dfe4ab15
Commit
dfe4ab15
authored
Oct 06, 2006
by
Tobias Schlüter
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
add missed aprt of patch
From-SVN: r117517
parent
d7bfd907
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
2 deletions
+2
-2
gcc/testsuite/gfortran.dg/actual_array_constructor_2.f90
+2
-2
No files found.
gcc/testsuite/gfortran.dg/actual_array_constructor_2.f90
View file @
dfe4ab15
...
...
@@ -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
()
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment