repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Fix warnings occured during profiledboostrap on
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
nested_reshape.f90
blob
d71e4ecc150a99ad298e926c2f80d8443b238e75
1
! { dg-do run }
2
! PR 20436: This used to give a runtime error.
3
program
nested_reshape
4
implicit none
5
real
::
k
(
8
,
2
)
6
real
::
o
(
8
,
2
)
7
8
k
=
reshape
((/
1.0
,
2.0
,
3.0
,
4.0
,
5.0
,
6.0
,
7.0
,
8.0
, &
9
9.0
,
10.0
,
11.0
,
12.0
,
13.0
,
14.0
,
15.0
,
16.0
/), (/
8
,
2
/))
10
11
o
=
reshape
(
reshape
(
k
, (/
2
,
8
/),
order
=(/
2
,
1
/)), (/
8
,
2
/))
12
end program