This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Re: [patch, PR 32731] fix pack and unpack for kind=1 and kind=2 mask
- From: Thomas Koenig <tkoenig at alice-dsl dot net>
- To: fortran at gcc dot gnu dot org
- Cc: gcc-patches at gcc dot gnu dot org
- Date: Sat, 14 Jul 2007 09:48:47 +0200
- Subject: Re: [patch, PR 32731] fix pack and unpack for kind=1 and kind=2 mask
- References: <1184355598.21916.11.camel@meiner.onlinehome.de>
On Fri, 2007-07-13 at 21:39 +0200, Thomas Koenig wrote:
:ADDPATCH fortran:
> Currently regression-testing on i686-pc-linux-gnu. OK for trunk if this
> passes?
Now passed regression-testing.
Thomas
> Thomas
>
> 2007-07-13 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-13 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.
>