This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug libfortran/32731] New: pack/unpack with kind=1 or kind=2 mask
- From: "tkoenig at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 11 Jul 2007 18:36:29 -0000
- Subject: [Bug libfortran/32731] New: pack/unpack with kind=1 or kind=2 mask
- Reply-to: gcc-bugzilla 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