Missed one in last change.

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

C Test compiler flags: -fno-f90
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 "-fno-f90 -fugly-complex" }
      double complex z
      z = (2.0d0,1.0d0)
      call s(real(z))
      end
      subroutine s(x)
      real x
      if ( abs(x-2.0) .gt. 1.0e-5 ) call abort
      end