gcc/testsuite/g77.dg/fno-f90-1.f

   1 C Test compiler flags: -fno-f90
   2 C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
   3 C
   4 C Read the g77 manual entry on CMPAMBIG
   5 C
   6 C { dg-do run }
   7 C { dg-options "-fno-f90 -fugly-complex" }
   8       double complex z
   9       z = (2.0d0,1.0d0)
  10       call s(real(z))
  11       end
  12       subroutine s(x)
  13       real x
  14       if ( abs(x-2.0) .gt. 1.0e-5 ) call abort
  15       end