The following program aborts at run-time opening a 
box that says
"a.exe has encountered a problem and needs to close.  
We are sorry for the inconvenience."

And then offers to send an error report to Microsoft.
I believe the problem is the extraction of the 1/NF0
from within the WHERE block.

      program RZ0048
      INTEGER IDA(10)
      REAL RDA(10)

      RDA    = 1.0

      nf0 = 3
      WHERE (RDA < -15.0)
        IDA = 1/NF0 + 2
      ENDWHERE
      print *, 'first where completed'

      nf0 = 0

      WHERE (RDA < -15.0)
        IDA = 1/NF0 + 2
      ENDWHERE

      END


-- 
           Summary: Divide incorrectly extracted from WHERE block?; run time
                    abort
           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=35745

Reply via email to