This is the mail archive of the fortran@gcc.gnu.org mailing list for the GNU Fortran project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: [patch, PR 32731] fix pack and unpack for kind=1 and kind=2 mask


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.
> 


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]