summaryrefslogtreecommitdiff
path: root/libgfortran/generated
diff options
context:
space:
mode:
authorfxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>2006-02-16 07:52:22 +0000
committerfxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>2006-02-16 07:52:22 +0000
commit1b9d8f4b75a937736cb88855f41558e41fca6164 (patch)
treef2093c49861eca5b34a28bb437e2de88bf8c4007 /libgfortran/generated
parente3071e62e57f49014686b4c6d17689d6dcb786b0 (diff)
downloadgcc-1b9d8f4b75a937736cb88855f41558e41fca6164.tar.gz
PR libfortran/24903
* m4/dotprodc.m4: Use __builtin_conj instead of assigning real and imaginary parts separately. * generated/dotprod_c4.c: Regenerated. * generated/dotprod_c8.c: Regenerated. * generated/dotprod_c10.c: Regenerated. * generated/dotprod_c16.c: Regenerated. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@111131 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/generated')
-rw-r--r--libgfortran/generated/dotprod_c10.c4
-rw-r--r--libgfortran/generated/dotprod_c16.c4
-rw-r--r--libgfortran/generated/dotprod_c4.c4
-rw-r--r--libgfortran/generated/dotprod_c8.c4
4 files changed, 4 insertions, 12 deletions
diff --git a/libgfortran/generated/dotprod_c10.c b/libgfortran/generated/dotprod_c10.c
index 0dccca71ec7..b68b0d3b5e6 100644
--- a/libgfortran/generated/dotprod_c10.c
+++ b/libgfortran/generated/dotprod_c10.c
@@ -49,7 +49,6 @@ dot_product_c10 (gfc_array_c10 * const restrict a, gfc_array_c10 * const restric
const GFC_COMPLEX_10 * restrict pa;
const GFC_COMPLEX_10 * restrict pb;
GFC_COMPLEX_10 res;
- GFC_COMPLEX_10 conjga;
index_type count;
index_type astride;
index_type bstride;
@@ -71,8 +70,7 @@ dot_product_c10 (gfc_array_c10 * const restrict a, gfc_array_c10 * const restric
while (count--)
{
- COMPLEX_ASSIGN(conjga, REALPART (*pa), -IMAGPART (*pa));
- res += conjga * *pb;
+ res += __builtin_conjl (*pa) * *pb;
pa += astride;
pb += bstride;
}
diff --git a/libgfortran/generated/dotprod_c16.c b/libgfortran/generated/dotprod_c16.c
index 6d17ba7409d..82d5d49ea92 100644
--- a/libgfortran/generated/dotprod_c16.c
+++ b/libgfortran/generated/dotprod_c16.c
@@ -49,7 +49,6 @@ dot_product_c16 (gfc_array_c16 * const restrict a, gfc_array_c16 * const restric
const GFC_COMPLEX_16 * restrict pa;
const GFC_COMPLEX_16 * restrict pb;
GFC_COMPLEX_16 res;
- GFC_COMPLEX_16 conjga;
index_type count;
index_type astride;
index_type bstride;
@@ -71,8 +70,7 @@ dot_product_c16 (gfc_array_c16 * const restrict a, gfc_array_c16 * const restric
while (count--)
{
- COMPLEX_ASSIGN(conjga, REALPART (*pa), -IMAGPART (*pa));
- res += conjga * *pb;
+ res += __builtin_conjl (*pa) * *pb;
pa += astride;
pb += bstride;
}
diff --git a/libgfortran/generated/dotprod_c4.c b/libgfortran/generated/dotprod_c4.c
index a575dc98969..7f336234fe8 100644
--- a/libgfortran/generated/dotprod_c4.c
+++ b/libgfortran/generated/dotprod_c4.c
@@ -49,7 +49,6 @@ dot_product_c4 (gfc_array_c4 * const restrict a, gfc_array_c4 * const restrict b
const GFC_COMPLEX_4 * restrict pa;
const GFC_COMPLEX_4 * restrict pb;
GFC_COMPLEX_4 res;
- GFC_COMPLEX_4 conjga;
index_type count;
index_type astride;
index_type bstride;
@@ -71,8 +70,7 @@ dot_product_c4 (gfc_array_c4 * const restrict a, gfc_array_c4 * const restrict b
while (count--)
{
- COMPLEX_ASSIGN(conjga, REALPART (*pa), -IMAGPART (*pa));
- res += conjga * *pb;
+ res += __builtin_conjf (*pa) * *pb;
pa += astride;
pb += bstride;
}
diff --git a/libgfortran/generated/dotprod_c8.c b/libgfortran/generated/dotprod_c8.c
index 00ac8a9d0cc..df7738f381e 100644
--- a/libgfortran/generated/dotprod_c8.c
+++ b/libgfortran/generated/dotprod_c8.c
@@ -49,7 +49,6 @@ dot_product_c8 (gfc_array_c8 * const restrict a, gfc_array_c8 * const restrict b
const GFC_COMPLEX_8 * restrict pa;
const GFC_COMPLEX_8 * restrict pb;
GFC_COMPLEX_8 res;
- GFC_COMPLEX_8 conjga;
index_type count;
index_type astride;
index_type bstride;
@@ -71,8 +70,7 @@ dot_product_c8 (gfc_array_c8 * const restrict a, gfc_array_c8 * const restrict b
while (count--)
{
- COMPLEX_ASSIGN(conjga, REALPART (*pa), -IMAGPART (*pa));
- res += conjga * *pb;
+ res += __builtin_conj (*pa) * *pb;
pa += astride;
pb += bstride;
}