pr91568.f\gfortran.dg\testsuite\gcc - riscv-gnu-toolchain/gcc.git - Unnamed repository; edit this file 'description' to name the repository.

index : riscv-gnu-toolchain/gcc.git

Unnamed repository; edit this file 'description' to name the repository.

root

about summary refs log tree commit diff

path: root/gcc/testsuite/gfortran.dg/pr91568.f

blob: 4ada559d692a77aba59b21e49d917c47a4c949dd (plain)

! { dg-do compile }
! { dg-options "-Ofast" }
      subroutine h3dall(z,hvec,hder,nterms)
      complex *16 hvec(0:1),hder(0:1)
      complex *16 z,zinv,ztmp/1.0/
      zinv=1.0/z
      do i=1,nterms
         ztmp=zinv*i
         hder(i)=hvec(i-1)-ztmp*hvec(i)
      enddo
      end