Sorry for forgetting to attached the patch in previous message.
Index: osprey/common/com/wn_simp_code.h
===================================================================
--- osprey/common/com/wn_simp_code.h (revision 1185)
+++ osprey/common/com/wn_simp_code.h (revision 1186)
@@ -2150,7 +2150,7 @@
if (r) return r;
#ifdef TARG_X8664
- if (MTYPE_C8 == ty)
+ if (MTYPE_C8 == ty && Opt_Level != 0)
{
if (MTYPE_F8 == SIMPNODE_rtype(k0) && MTYPE_F8 == SIMPNODE_rtype(k1))
{
@@ -2849,7 +2849,7 @@
}
if (r) return r;
#ifdef TARG_X8664
- if (MTYPE_C8 == ty || MTYPE_V16C8 == ty)
+ if ((MTYPE_C8 == ty || MTYPE_V16C8 == ty) && Opt_Level != 0)
{
if (SIMPNODE_rtype(k1) == MTYPE_F8 && SIMPNODE_rtype(k0) == MTYPE_F8)
{
@@ -3117,7 +3117,7 @@
}
}
#ifdef TARG_X8664
- if (MTYPE_C8 == ty)
+ if (MTYPE_C8 == ty && Opt_Level != 0)
{
/* complex const converted to real const */
if (k0const && SIMPNODE_rtype(k0) == ty)
Best Regards,
yiran
---------- Forwarded message ----------
From: Yiran Wang <[email protected]>
Date: Wed, Mar 30, 2011 at 1:16 PM
Subject: code review for fix of a bug: -m32 -march=athlon -O0 compiler
assertion with complex*16
To: [email protected]
Hi,
Could a gatekeeper please review this patch?
The command line: openf90 -m32 -march=athlon x.f -c -keep -O0
The source file:
program test
real*8 :: ms
complex*16 :: direct, crossed
ms = 2.*(direct+crossed)
end
The output :
### Assertion failure at line 1366 of
/ctires/open64/o64guru/OPEN64_ZIN_OPT_NET_NITE/Tue/trunk/osprey/be/cg/x8664/cg_convert_x87.cxx:
### Compiler Error in file x.f during Converting x87 stack registers phase:
### x87 stack is inconsistent.
openf90 INTERNAL ERROR:
/ctires/open64/o64guru/OPEN64_ZIN_OPT_NET_NITE/Tue/bits/lib/gcc-lib/x86_64-open64-linux/4.2/be
returned non-zero status 1
Best Regards
yiran
------------------------------------------------------------------------------
Enable your software for Intel(R) Active Management Technology to meet the
growing manageability and security demands of your customers. Businesses
are taking advantage of Intel(R) vPro (TM) technology - will your software
be a part of the solution? Download the Intel(R) Manageability Checker
today! http://p.sf.net/sfu/intel-dev2devmar
_______________________________________________
Open64-devel mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/open64-devel
