------- 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 <[EMAIL PROTECTED]> 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 <[EMAIL PROTECTED]> 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