This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/19294] intrinsic_transpose.f90 runtime crash
- From: "phython at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 12 Jan 2005 01:58:28 -0000
- Subject: [Bug fortran/19294] intrinsic_transpose.f90 runtime crash
- References: <20050106172343.19294.coudert@clipper.ens.fr>
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
------- 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