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
13