public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
* [Bug libfortran/19016] New: maxloc ignores mask
@ 2004-12-15 17:33 Thomas dot Koenig at online dot de
  2004-12-15 23:37 ` [Bug libfortran/19016] " pinskia at gcc dot gnu dot org
                   ` (7 more replies)
  0 siblings, 8 replies; 9+ messages in thread
From: Thomas dot Koenig at online dot de @ 2004-12-15 17:33 UTC (permalink / raw)
  To: gcc-bugs

$ cat maxloc-3.f90
  integer, dimension(3,3) :: n
  integer, dimension(2) :: i
  n = reshape((/3, 2, 1, 4, 7, 8, 7, 8, 9/), shape(n))
  i = maxloc(n, mask = n<6 )
  print '(3I3)',n
  print '(3L3)',n<6
  print *,i
  if (.not. n(i(1),i(2))<6) call abort
end program
$ gfortran maxloc-3.f90
$ ./a.out
  3  2  1
  4  7  8
  7  8  9
  T  T  T
  T  F  F
  F  F  F
           3           2
Aborted
$ gfortran -v
Reading specs from /home/zfkts/lib/gcc/ia64-unknown-linux-gnu/4.0.0/specs
Configured with: ../gcc-4.0-20041212/configure --prefix=/home/zfkts
--enable-languages=c,c++,f95 : (reconfigured) ../gcc-4.0-20041212/configure
--prefix=/home/zfkts --enable-languages=c,c++,f95 --disable-shared
Thread model: posix
gcc version 4.0.0 20041212 (experimental)

-- 
           Summary: maxloc ignores mask
           Product: gcc
           Version: unknown
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: libfortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: Thomas dot Koenig at online dot de
                CC: gcc-bugs at gcc dot gnu dot org


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


^ permalink raw reply	[flat|nested] 9+ messages in thread

end of thread, other threads:[~2005-05-20 22:52 UTC | newest]

Thread overview: 9+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2004-12-15 17:33 [Bug libfortran/19016] New: maxloc ignores mask Thomas dot Koenig at online dot de
2004-12-15 23:37 ` [Bug libfortran/19016] " pinskia at gcc dot gnu dot org
2004-12-27 22:24 ` Thomas dot Koenig at online dot de
2005-04-12  9:02 ` tkoenig at gcc dot gnu dot org
2005-04-12 20:30 ` tkoenig at gcc dot gnu dot org
2005-04-12 22:58 ` cvs-commit at gcc dot gnu dot org
2005-04-13  8:27 ` [Bug libfortran/19016] [4.0 only] " tkoenig at gcc dot gnu dot org
2005-05-20 22:52 ` tkoenig at gcc dot gnu dot org
2005-05-20 22:52 ` cvs-commit at gcc dot gnu dot org

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).