blob: 7ebb632ab2bd8481c6e818018840710235899f3b [file] [log] [blame]
! { dg-do compile }
! { dg-options "-O3" }
SUBROUTINE ZLARFG( ALPHA )
COMPLEX*16 ZLADIV
ALPHA = ZLADIV( DCMPLX( 1.0D+0 ) )
END
COMPLEX*16 FUNCTION ZLADIV( X )
COMPLEX*16 X
CALL DLADIV( DBLE( X ), DIMAG( X ) )
END