2 ! { dg-options "-O2 -ftree-loop-distribution" }
9 real, dimension(:,:), allocatable :: Angle
10 real, dimension(:), allocatable :: exth, ezth, hxth, hyth, hyphi
23 exth(n) = cos(fi)*cos(th)
29 END SUBROUTINE NFT_Init
33 ! { dg-final { cleanup-modules "nft_mod" } }