diff options
| author | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-22 21:55:43 +0000 |
|---|---|---|
| committer | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-22 21:55:43 +0000 |
| commit | 914c67560da83b34bdc7cc6ba277663a2b001cf7 (patch) | |
| tree | 7266a2b95724af3a9bf3d77816e0fb5e4737445a /libgfortran | |
| parent | 6d528959722410eaa8cafce4347f52fb2b68af6e (diff) | |
| download | ppe42-gcc-914c67560da83b34bdc7cc6ba277663a2b001cf7.tar.gz ppe42-gcc-914c67560da83b34bdc7cc6ba277663a2b001cf7.zip | |
2008-05-22 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libgfortran/36302
* gfortran.map (GFORTRAN_1.1): Add _gfortran_eoshift0_16,
_gfortran_eoshift0_16_char, _gfortran_eoshift2_16,
_gfortran_eoshift2_16_char,_gfortran_cshift0_16,
_gfortran_cshift0_16_char. Sort alphabetically.
* intrinsics/eoshift0.c: Add function for kind=16 integer.
* intrinsics/eoshift2.c: Likewise.
* intrinsics/cshift0.c: Likewise.
2008-05-22 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libgfortran/36302
* gfortran.dg/cshift_large_1.f90: New test.
* gfortran.dg/eoshift_large_1.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@135777 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 11 | ||||
| -rw-r--r-- | libgfortran/gfortran.map | 34 | ||||
| -rw-r--r-- | libgfortran/intrinsics/cshift0.c | 3 | ||||
| -rw-r--r-- | libgfortran/intrinsics/eoshift0.c | 3 | ||||
| -rw-r--r-- | libgfortran/intrinsics/eoshift2.c | 3 |
5 files changed, 40 insertions, 14 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 671ae4be37d..81820965ca6 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,14 @@ +2008-05-22 Thomas Koenig <tkoenig@gcc.gnu.org> + + PR libgfortran/36302 + * gfortran.map (GFORTRAN_1.1): Add _gfortran_eoshift0_16, + _gfortran_eoshift0_16_char, _gfortran_eoshift2_16, + _gfortran_eoshift2_16_char,_gfortran_cshift0_16, + _gfortran_cshift0_16_char. Sort alphabetically. + * intrinsics/eoshift0.c: Add function for kind=16 integer. + * intrinsics/eoshift2.c: Likewise. + * intrinsics/cshift0.c: Likewise. + 2008-05-18 Thomas Koenig <tkoenig@gcc.gnu.org> * m4/in_pack.m4 (internal_pack_'rtype_code`): Destination diff --git a/libgfortran/gfortran.map b/libgfortran/gfortran.map index deac160423c..b61ce87990e 100644 --- a/libgfortran/gfortran.map +++ b/libgfortran/gfortran.map @@ -1033,31 +1033,37 @@ GFORTRAN_1.0 { GFORTRAN_1.1 { global: - _gfortran_erfc_scaled_r4; - _gfortran_erfc_scaled_r8; - _gfortran_erfc_scaled_r10; - _gfortran_erfc_scaled_r16; - _gfortran_selected_char_kind; - _gfortran_st_wait; _gfortran_adjustl_char4; _gfortran_adjustr_char4; _gfortran_compare_string_char4; _gfortran_concat_string_char4; + _gfortran_convert_char1_to_char4; + _gfortran_convert_char4_to_char1; + _gfortran_cshift0_16; + _gfortran_cshift0_16_char; + _gfortran_eoshift0_16; + _gfortran_eoshift0_16_char; + _gfortran_eoshift2_16; + _gfortran_eoshift2_16_char; + _gfortran_erfc_scaled_r10; + _gfortran_erfc_scaled_r16; + _gfortran_erfc_scaled_r4; + _gfortran_erfc_scaled_r8; + _gfortran_pack_char4; + _gfortran_pack_s_char4; + _gfortran_reshape_char4; + _gfortran_select_string_char4; + _gfortran_selected_char_kind; + _gfortran_spread_char4; + _gfortran_spread_char4_scalar; + _gfortran_st_wait; _gfortran_string_index_char4; _gfortran_string_len_trim_char4; _gfortran_string_minmax_char4; _gfortran_string_scan_char4; _gfortran_string_trim_char4; _gfortran_string_verify_char4; - _gfortran_select_string_char4; - _gfortran_convert_char1_to_char4; - _gfortran_convert_char4_to_char1; _gfortran_transpose_char4; - _gfortran_spread_char4; - _gfortran_spread_char4_scalar; - _gfortran_reshape_char4; - _gfortran_pack_char4; - _gfortran_pack_s_char4; _gfortran_unpack0_char4; _gfortran_unpack1_char4; } GFORTRAN_1.0; diff --git a/libgfortran/intrinsics/cshift0.c b/libgfortran/intrinsics/cshift0.c index aa466ff3b6b..71574658dda 100644 --- a/libgfortran/intrinsics/cshift0.c +++ b/libgfortran/intrinsics/cshift0.c @@ -340,3 +340,6 @@ DEFINE_CSHIFT (1); DEFINE_CSHIFT (2); DEFINE_CSHIFT (4); DEFINE_CSHIFT (8); +#ifdef HAVE_GFC_INTEGER_16 +DEFINE_CSHIFT (16); +#endif diff --git a/libgfortran/intrinsics/eoshift0.c b/libgfortran/intrinsics/eoshift0.c index 9946b4877e3..c75199c4a2f 100644 --- a/libgfortran/intrinsics/eoshift0.c +++ b/libgfortran/intrinsics/eoshift0.c @@ -251,3 +251,6 @@ DEFINE_EOSHIFT (1); DEFINE_EOSHIFT (2); DEFINE_EOSHIFT (4); DEFINE_EOSHIFT (8); +#ifdef HAVE_GFC_INTEGER_16 +DEFINE_EOSHIFT (16); +#endif diff --git a/libgfortran/intrinsics/eoshift2.c b/libgfortran/intrinsics/eoshift2.c index ca870d245fb..f74cb01fec8 100644 --- a/libgfortran/intrinsics/eoshift2.c +++ b/libgfortran/intrinsics/eoshift2.c @@ -272,3 +272,6 @@ DEFINE_EOSHIFT (1); DEFINE_EOSHIFT (2); DEFINE_EOSHIFT (4); DEFINE_EOSHIFT (8); +#ifdef HAVE_GFC_INTEGER_16 +DEFINE_EOSHIFT (16); +#endif |
