gcc/testsuite/gfortran.dg/pr40999.f

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