------- Additional Comments From phython at gcc dot gnu dot org 2005-01-12
01:58 -------
This patch fixes the testcase on sparc-linux
--- intrinsic_transpose.f90.old 2005-01-11 20:48:30.498247968 -0500
+++ intrinsic_transpose.f90 2005-01-11 20:45:38.026467664 -0500
@@ -2,7 +2,7 @@
program intrinsic_transpose
integer, dimension (3, 3) :: a, b
complex(kind=8), dimension (2, 2) :: c, d
- complex(kind=4), dimension (2, 2) :: e
+ complex(kind=4), dimension (2, 2) :: e, f
a = 0
b = reshape ((/1, 2, 3, 4, 5, 6, 7, 8, 9/), (/3, 3/))
@@ -17,8 +17,8 @@ program intrinsic_transpose
call abort ();
e = reshape ((/(1.0,2.0), (3.0, 4.0), (5.0, 6.0), (7.0, 8.0)/), (/2, 2/))
- e = transpose (e);
- if (any (e .ne. reshape ((/(1.0, 2.0), (5.0, 6.0), &
+ f = transpose (e);
+ if (any (f .ne. reshape ((/(1.0, 2.0), (5.0, 6.0), &
(3.0, 4.0), (7.0, 8.0)/), (/2, 2/)))) &
call abort ();
end program
--
What |Removed |Added
----------------------------------------------------------------------------
CC| |phython at gcc dot gnu dot
| |org
GCC host triplet|sparc-sun-solaris2.* |sparc*--
GCC target triplet|sparc-sun-solaris2.* |sparc*--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=19294
