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