OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR libfortran/18966 (cshift etc. not implemented for kind=1 and kind=2 actual arguments)

Browse Source 
PR libfortran/18966
        * gfortran.h: typedef GFC_INTEGER_1 and GFC_INTEGER_2
        * intrinsics/cshift0.c (cshift0_1,cshift0_2): New functions.
        * intrinsics/eoshift0.c (eoshift0_1,eoshift0_2): New functions.
        * intrinsics/eoshift2.c (eoshift2_1,eoshift2_2): New functions.

From-SVN: r92132
This commit is contained in:
Steven G. Kargl 2004-12-14 10:43:36 +00:00 committed by Steven Bosscher
parent 803140430a
commit 985791f6fe
5 changed files with 98 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
libgfortran/ChangeLog
View File

@ -1,3 +1,11 @@
2004-12-05 Steven G. Kargl <kargls@comcast.net>
PR libfortran/18966
* gfortran.h: typedef GFC_INTEGER_1 and GFC_INTEGER_2
* intrinsics/cshift0.c (cshift0_1,cshift0_2): New functions.
* intrinsics/eoshift0.c (eoshift0_1,eoshift0_2): New functions.
* intrinsics/eoshift2.c (eoshift2_1,eoshift2_2): New functions.
2004-12-13 David Edelsohn <edelsohn@gnu.org>
* io/transfer.c (read_sf): Change bitwise "and" to logical "and".

26
libgfortran/intrinsics/cshift0.c
View File

@ -238,6 +238,30 @@ cshift0 (gfc_array_char * ret, const gfc_array_char * array,
}
extern void cshift0_1 (gfc_array_char *, const gfc_array_char *,
const GFC_INTEGER_1 *, const GFC_INTEGER_1 *);
export_proto(cshift0_1);
void
cshift0_1 (gfc_array_char *ret, const gfc_array_char *array,
const GFC_INTEGER_1 *pshift, const GFC_INTEGER_1 *pdim)
{
cshift0 (ret, array, *pshift, pdim ? *pdim : 1);
}
extern void cshift0_2 (gfc_array_char *, const gfc_array_char *,
const GFC_INTEGER_2 *, const GFC_INTEGER_2 *);
export_proto(cshift0_2);
void
cshift0_2 (gfc_array_char *ret, const gfc_array_char *array,
const GFC_INTEGER_2 *pshift, const GFC_INTEGER_2 *pdim)
{
cshift0 (ret, array, *pshift, pdim ? *pdim : 1);
}
extern void cshift0_4 (gfc_array_char *, const gfc_array_char *,
const GFC_INTEGER_4 *, const GFC_INTEGER_4 *);
export_proto(cshift0_4);
@ -249,6 +273,7 @@ cshift0_4 (gfc_array_char *ret, const gfc_array_char *array,
cshift0 (ret, array, *pshift, pdim ? *pdim : 1);
}
extern void cshift0_8 (gfc_array_char *, const gfc_array_char *,
const GFC_INTEGER_8 *, const GFC_INTEGER_8 *);
export_proto(cshift0_8);
@ -259,3 +284,4 @@ cshift0_8 (gfc_array_char *ret, const gfc_array_char *array,
{
cshift0 (ret, array, *pshift, pdim ? *pdim : 1);
}

31
libgfortran/intrinsics/eoshift0.c
View File

@ -187,6 +187,35 @@ eoshift0 (gfc_array_char * ret, const gfc_array_char * array,
}
}
extern void eoshift0_1 (gfc_array_char *, const gfc_array_char *,
const GFC_INTEGER_1 *, const char *,
const GFC_INTEGER_1 *);
export_proto(eoshift0_1);
void
eoshift0_1 (gfc_array_char *ret, const gfc_array_char *array,
const GFC_INTEGER_1 *pshift, const char *pbound,
const GFC_INTEGER_1 *pdim)
{
eoshift0 (ret, array, *pshift, pbound, pdim ? *pdim : 1);
}
extern void eoshift0_2 (gfc_array_char *, const gfc_array_char *,
const GFC_INTEGER_2 *, const char *,
const GFC_INTEGER_2 *);
export_proto(eoshift0_2);
void
eoshift0_2 (gfc_array_char *ret, const gfc_array_char *array,
const GFC_INTEGER_2 *pshift, const char *pbound,
const GFC_INTEGER_2 *pdim)
{
eoshift0 (ret, array, *pshift, pbound, pdim ? *pdim : 1);
}
extern void eoshift0_4 (gfc_array_char *, const gfc_array_char *,
const GFC_INTEGER_4 *, const char *,
const GFC_INTEGER_4 *);
@ -200,6 +229,7 @@ eoshift0_4 (gfc_array_char *ret, const gfc_array_char *array,
eoshift0 (ret, array, *pshift, pbound, pdim ? *pdim : 1);
}
extern void eoshift0_8 (gfc_array_char *, const gfc_array_char *,
const GFC_INTEGER_8 *, const char *,
const GFC_INTEGER_8 *);
@ -212,3 +242,4 @@ eoshift0_8 (gfc_array_char *ret, const gfc_array_char *array,
{
eoshift0 (ret, array, *pshift, pbound, pdim ? *pdim : 1);
}

31
libgfortran/intrinsics/eoshift2.c
View File

@ -203,6 +203,35 @@ eoshift2 (gfc_array_char *ret, const gfc_array_char *array,
}
}
extern void eoshift2_1 (gfc_array_char *, const gfc_array_char *,
const GFC_INTEGER_1 *, const gfc_array_char *,
const GFC_INTEGER_1 *);
export_proto(eoshift2_1);
void
eoshift2_1 (gfc_array_char *ret, const gfc_array_char *array,
const GFC_INTEGER_1 *pshift, const gfc_array_char *bound,
const GFC_INTEGER_1 *pdim)
{
eoshift2 (ret, array, *pshift, bound, pdim ? *pdim : 1);
}
extern void eoshift2_2 (gfc_array_char *, const gfc_array_char *,
const GFC_INTEGER_2 *, const gfc_array_char *,
const GFC_INTEGER_2 *);
export_proto(eoshift2_2);
void
eoshift2_2 (gfc_array_char *ret, const gfc_array_char *array,
const GFC_INTEGER_2 *pshift, const gfc_array_char *bound,
const GFC_INTEGER_2 *pdim)
{
eoshift2 (ret, array, *pshift, bound, pdim ? *pdim : 1);
}
extern void eoshift2_4 (gfc_array_char *, const gfc_array_char *,
const GFC_INTEGER_4 *, const gfc_array_char *,
const GFC_INTEGER_4 *);
@ -216,6 +245,7 @@ eoshift2_4 (gfc_array_char *ret, const gfc_array_char *array,
eoshift2 (ret, array, *pshift, bound, pdim ? *pdim : 1);
}
extern void eoshift2_8 (gfc_array_char *, const gfc_array_char *,
const GFC_INTEGER_8 *, const gfc_array_char *,
const GFC_INTEGER_8 *);
@ -228,3 +258,4 @@ eoshift2_8 (gfc_array_char *ret, const gfc_array_char *array,
{
eoshift2 (ret, array, *pshift, bound, pdim ? *pdim : 1);
}

2
libgfortran/libgfortran.h
View File

@ -185,6 +185,8 @@ isfinite (double x)
#define IMAGPART(z) (__imag__(z))
#define COMPLEX_ASSIGN(z_, r_, i_) {__real__(z_) = (r_); __imag__(z_) = (i_);}
typedef int8_t GFC_INTEGER_1;
typedef int16_t GFC_INTEGER_2;
typedef int32_t GFC_INTEGER_4;
typedef int64_t GFC_INTEGER_8;
typedef uint32_t GFC_UINTEGER_4;