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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

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