gcc/testsuite/gfortran.dg/pr40999.f

   1 ! { dg-do compile }
   2 ! { dg-options "-O3 -fwhole-file" }
   3
   4       SUBROUTINE ZLARFG( ALPHA )
   5         COMPLEX*16 ZLADIV
   6         ALPHA = ZLADIV( DCMPLX( 1.0D+0 ) )
   7       END
   8       COMPLEX*16 FUNCTION ZLADIV( X )
   9         COMPLEX*16         X
  10         CALL DLADIV( DBLE( X ), DIMAG( X ) )
  11       END
  12