[Bug libfortran/32731] pack/unpack with kind=1 or kind=2 mask

[tkoenig 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