OSDN Git Service

2007-07-14 Thomas Koenig <tkoenig@gcc.gnu.org>
authortkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 14 Jul 2007 20:39:10 +0000 (20:39 +0000)
committertkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 14 Jul 2007 20:39:10 +0000 (20:39 +0000)
commit014e0d24c3051cbb990be704f980cd2958994d82
tree882fafe4edcc95b5b0f95aa140ea91d799393487
parente85b06c54b44b0da44f3130aafd1a2d3b26244eb
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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@126644 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/fortran/ChangeLog
gcc/fortran/iresolve.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/pack_mask_1.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/unpack_mask_1.f90 [new file with mode: 0644]