mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
13 lines
279 B
Fortran
13 lines
279 B
Fortran
! { 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
|
|
|