fortran/3877: Test program ff90-1.f fails at -O0

fortran/3877: Test program ff90-1.f fails at -O0

[David.Billinghurst]

>Number:         3877
>Category:       fortran
>Synopsis:       Test program ff90-1.f fails at -O0
>Confidential:   no
>Severity:       non-critical
>Priority:       medium
>Responsible:    unassigned
>State:          open
>Class:          sw-bug
>Submitter-Id:   net
>Arrival-Date:   Mon Jul 30 08:06:01 PDT 2001
>Closed-Date:
>Last-Modified:
>Originator:     David Billinghurst
>Release:        gcc-3.1 20010727
>Organization:
>Environment:
i686-pc-cygwin NT4/SP5 
>Description:
The following test program fails on i686-pc-cygwin when compiled with "-O0 -ff90".  It passes at other optimization levels.

C Test compiler flags: -ff90
C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
C
C Read the g77 manual entry on CMPAMBIG
C
C { dg-do run }
C { dg-options "-ff90" }
      double complex z
      z = (2.0d0,1.0d0)
      call s(real(z))
      end
      subroutine s(x)
      double precision x
      if ( abs(z-2.0d0) .gt. 1.0e-5 ) call abort
      end


>How-To-Repeat:
g77 -o a.out -ff90 -O0 ff90-1.f
./a.out
>Fix:

>Release-Note:
>Audit-Trail:
>Unformatted:

Re: fortran/3877: Test program ff90-1.f fails at -O0

[toon]

Synopsis: Test program ff90-1.f fails at -O0

Responsible-Changed-From-To: unassigned->toon
Responsible-Changed-By: toon
Responsible-Changed-When: Mon Aug  6 04:59:50 2001
Responsible-Changed-Why:
    Fixed it.
State-Changed-From-To: open->closed
State-Changed-By: toon
State-Changed-When: Mon Aug  6 04:59:50 2001
State-Changed-Why:
    Operator (and reviewer) error.  In subroutine `s' the
    reference to `z' should be `x'.

http://gcc.gnu.org/cgi-bin/gnatsweb.pl?cmd=view&pr=3877&database=gcc