blob: f33eb28b21bc9b6580c10a4c7ebdc6229387602d [file] [log] [blame]
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