FSF GCC merge 02/23/03

[official-gcc.git] / gcc / testsuite / g77.dg / ff90-1.f

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(x-2.0d0) .gt. 1.0e-5 ) call abort
      end