This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug libfortran/32731] pack/unpack with kind=1 or kind=2 mask
- From: "tkoenig at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 14 Jul 2007 20:39:20 -0000
- Subject: [Bug libfortran/32731] pack/unpack with kind=1 or kind=2 mask
- References: <bug-32731-10391@http.gcc.gnu.org/bugzilla/>
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
------- Comment #3 from tkoenig at gcc dot gnu dot org 2007-07-14 20:39 -------
Subject: Bug 32731
Author: tkoenig
Date: Sat Jul 14 20:39:10 2007
New Revision: 126644
URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=126644
Log:
2007-07-14 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/32731
* iresolve.c(gfc_resolve_pack): A scalar mask has
to be kind=4, an array mask with kind<4 is converted
to gfc_default_logical_kind automatically.
(gfc_resolve_unpack): Convert mask to gfc_default_lotical_kind
if it has a kind<4.
2007-07-14 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/32731
* gfortran.dg/pack_mask_1.f90: New test.
* gfortran.dg/unpack_mask_1.f90: New test.
Added:
trunk/gcc/testsuite/gfortran.dg/pack_mask_1.f90
trunk/gcc/testsuite/gfortran.dg/unpack_mask_1.f90
Modified:
trunk/gcc/fortran/ChangeLog
trunk/gcc/fortran/iresolve.c
trunk/gcc/testsuite/ChangeLog
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32731