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

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

[tkoenig at gcc dot gnu dot org]

$ cat pack.f90 
program main
  real, dimension(2,2) :: a
  a = 0
  print *,pack(a,logical(a>0,kind=1))
end program main
$ gfortran pack.f90 && ./a.out
Fortran runtime error: Funny sized logical array
$ cat unpack.f90 
program main
  logical(kind=1),dimension(2,2) :: mask
  mask = .true.
  print *,unpack((/1,2,3,4/),mask,0)
end program main
$ gfortran unpack.f90 && ./a.out
Fortran runtime error: Funny sized logical array


-- 
           Summary: pack/unpack with kind=1 or kind=2 mask
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Keywords: wrong-code
          Severity: normal
          Priority: P3
         Component: libfortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: tkoenig at gcc dot gnu dot org


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32731

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

[tkoenig at gcc dot gnu dot org]

-- 

tkoenig at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |tkoenig at gcc dot gnu dot
                   |dot org                     |org
             Status|UNCONFIRMED                 |ASSIGNED
     Ever Confirmed|0                           |1
   Last reconfirmed|0000-00-00 00:00:00         |2007-07-11 18:38:10
               date|                            |


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32731

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

[tkoenig at gcc dot gnu dot org]

------- Comment #1 from tkoenig at gcc dot gnu dot org  2007-07-11 21:41 -------
Created an attachment (id=13890)
 --> (http://gcc.gnu.org/bugzilla/attachment.cgi?id=13890&action=view)
proposed patch


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32731

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

[patchapp at dberlin dot org]

------- Comment #2 from patchapp at dberlin dot org  2007-07-14 07:50 -------
Subject: Bug number PR 32731

A patch for this bug has been added to the patch tracker.
The mailing list url for the patch is
http://gcc.gnu.org/ml/gcc-patches/2007-07/msg01321.html


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32731

[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

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

[tkoenig at gcc dot gnu dot org]

------- Comment #4 from tkoenig at gcc dot gnu dot org  2007-07-14 20:40 -------
Fixed on trunk.

Closing.


-- 

tkoenig at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|ASSIGNED                    |RESOLVED
         Resolution|                            |FIXED


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32731

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

[pinskia at gcc dot gnu dot org]

-- 

pinskia at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
   Target Milestone|---                         |4.3.0


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32731