iresolve.c (resolve_mask_arg): If a mask is an array expression, convert it to kind=1.
authorThomas Koenig <tkoenig@gcc.gnu.org>
Thu, 13 Sep 2007 19:02:31 +0000 (19:02 +0000)
committerThomas Koenig <tkoenig@gcc.gnu.org>
Thu, 13 Sep 2007 19:02:31 +0000 (19:02 +0000)
commit76896993c25ad2143fbb0a1d7fbfcbdea30e41f0
tree47a7bb8af7e96a7c7a67312e8a96d2f04d8ce3b7
parent1d7d5ac4e8c62c26923e0a747afe5df3f5d13011
iresolve.c (resolve_mask_arg): If a mask is an array expression, convert it to kind=1.

2007-09-13  Thomas Koenig  <tkoenig@gcc.gnu.org>

* iresolve.c (resolve_mask_arg): If a mask is an array
expression, convert it to kind=1.

From-SVN: r128477
gcc/fortran/ChangeLog
gcc/fortran/iresolve.c