mirrors/gcc
1
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2024-11-25 20:03:58 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

pack_generic.c: Fix typo.

Browse Source 
2008-03-21  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	* intrinsics/pack_generic.c:  Fix typo.

From-SVN: r133437
This commit is contained in:
Jerry DeLisle 2008-03-21 21:00:17 +00:00
parent f03f16b2b3
commit 042a12f4e8
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
libgfortran/ChangeLog
View File

@ -1,3 +1,7 @@
2008-03-21 Jerry DeLisle <jvdelisle@gcc.gnu.org>
* intrinsics/pack_generic.c: Fix typo.
2008-03-21 Janne Blomqvist <jb@gcc.gnu.org> 2008-03-21 Janne Blomqvist <jb@gcc.gnu.org>
* gfortran.map: Move erfc_scaled symbols to new symbol node * gfortran.map: Move erfc_scaled symbols to new symbol node

2
libgfortran/intrinsics/pack_generic.c
View File

@ -400,7 +400,7 @@ pack (gfc_array_char *ret, const gfc_array_char *array,
#endif #endif
#ifdef HAVE_GFC_COMPLEX_16 #ifdef HAVE_GFC_COMPLEX_16
case sizeof (GFC_REAL_16): case sizeof (GFC_COMPLEX_16):
pack_c16 ((gfc_array_c16 *) ret, (gfc_array_c16 *) array, pack_c16 ((gfc_array_c16 *) ret, (gfc_array_c16 *) array,
(gfc_array_l1 *) mask, (gfc_array_c16 *) vector); (gfc_array_l1 *) mask, (gfc_array_c16 *) vector);
return; return;