public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
* [Bug fortran/35993]  New: wrong answer for PRODUCT with scalar mask
@ 2008-04-20 20:13 dick dot hendrickson at gmail dot com
  2008-04-20 21:03 ` [Bug fortran/35993] " tkoenig at gcc dot gnu dot org
                   ` (15 more replies)
  0 siblings, 16 replies; 17+ messages in thread
From: dick dot hendrickson at gmail dot com @ 2008-04-20 20:13 UTC (permalink / raw)
  To: gcc-bugs

The PRODUCT intrinsic gives the wrong answer when the mask argument is
a scalar expression which evaluates to FALSE.  It's OK with
an array expression that evaluates to all FALSE.

Dick Hendrickson 

      program try ga3019

! fails on Windows XP
! gcc version 4.4.0 20080312 (experimental) [trunk revision 133139]

      call       ga3019(  1,  2,  3,  4)
      end program

      SUBROUTINE GA3019(nf1,nf2,nf3,nf4)
      INTEGER IDA(NF2,NF3)
      INTEGER IDA1(NF2,NF4,NF3)

      ida1 = 3

      ida = -3
      IDA(NF1:NF2,NF1:NF3) = PRODUCT(IDA1,NF2, NF1 .LT. 0)  !fails
      print '(6I3)', ida

      ida = -3
      IDA(NF1:NF2,NF1:NF3) = PRODUCT(IDA1,NF2, .false. )    !fails
      print '(6I3)', ida

      ida = -3
      IDA(NF1:NF2,NF1:NF3) = PRODUCT(IDA1,NF2, ida1 .eq. 137 )    !works
      print '(6I3)', ida

      END SUBROUTINE

C:\gfortran:gfortran ga3019.f

C:\gfortran:a
  1  1  1 -3 -3 -3
  1  1  1 -3 -3 -3
  1  1  1  1  1  1


-- 
           Summary: wrong answer for PRODUCT with scalar mask
           Product: gcc
           Version: 4.4.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: dick dot hendrickson at gmail dot com


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


^ permalink raw reply	[flat|nested] 17+ messages in thread
end of thread, other threads:[~2008-05-03 20:42 UTC | newest]

Thread overview: 17+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2008-04-20 20:13 [Bug fortran/35993] New: wrong answer for PRODUCT with scalar mask dick dot hendrickson at gmail dot com
2008-04-20 21:03 ` [Bug fortran/35993] " tkoenig at gcc dot gnu dot org
2008-04-22 18:47 ` [Bug fortran/35993] [4.3/4.4 regression] " tkoenig at gcc dot gnu dot org
2008-04-22 19:35 ` jakub at gcc dot gnu dot org
2008-04-25  4:37 ` jvdelisle at gcc dot gnu dot org
2008-04-26  4:28 ` jvdelisle at gcc dot gnu dot org
2008-04-26  6:15 ` [Bug fortran/35993] [4.3/4.4 regression] wrong answer for all array intrinsics " jvdelisle at gcc dot gnu dot org
2008-04-26  6:18 ` jvdelisle at gcc dot gnu dot org
2008-04-26  8:51 ` tkoenig at gcc dot gnu dot org
2008-04-26 12:53 ` jvdelisle at gcc dot gnu dot org
2008-04-28 21:04 ` pault at gcc dot gnu dot org
2008-04-28 21:35 ` tkoenig at gcc dot gnu dot org
2008-04-29  3:15 ` jvdelisle at gcc dot gnu dot org
2008-04-30 16:57 ` tkoenig at gcc dot gnu dot org
2008-04-30 18:06 ` [Bug fortran/35993] [4.3 " tkoenig at gcc dot gnu dot org
2008-05-03 20:40 ` tkoenig at gcc dot gnu dot org
2008-05-03 20:42 ` tkoenig 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).