c: Fix up pointer types to may_alias structures [PR114493]
[official-gcc.git] / gcc / testsuite / gfortran.dg / pr91568.f
blob4ada559d692a77aba59b21e49d917c47a4c949dd
1 ! { dg-do compile }
2 ! { dg-options "-Ofast" }
3 subroutine h3dall(z,hvec,hder,nterms)
4 complex *16 hvec(0:1),hder(0:1)
5 complex *16 z,zinv,ztmp/1.0/
6 zinv=1.0/z
7 do i=1,nterms
8 ztmp=zinv*i
9 hder(i)=hvec(i-1)-ztmp*hvec(i)
10 enddo
11 end