PGK
unread,Aug 20, 2008, 6:55:32 AM8/20/08Sign in to reply to author
Sign in to forward
You do not have permission to delete messages in this group
Either email addresses are anonymous for this group or you need the view member email addresses permission to view the original message
to gg95
Hi,
I was playing with g95's (v0.91) reshape intrinsic, and found that the
following code stalls the program. The last, "order", parameter is
being set to something unusual.
...
integer, dimension(6) :: source1 = (/ 1, 2, 3, 4, 5, 6 /)
integer, dimension(2) :: shape1 = (/ 2, 5/)
integer, dimension(2) :: pad1 = (/ 0, 0/)
write (unit=*,fmt=*) reshape(source1, shape1, pad1, (/2,1/)) ! Runs
fine
write (unit=*,fmt=*) reshape(source1, shape1, pad1, (/2,2/)) ! Stalls
the program
...
Paul