1! { dg-do compile } 2! { dg-options "-O2 -ftree-loop-distribution" } 3 4MODULE NFT_mod 5 6implicit none 7integer :: Nangle 8real:: Z0 9real, dimension(:,:), allocatable :: Angle 10real, dimension(:), allocatable :: exth, ezth, hxth, hyth, hyphi 11 12CONTAINS 13 14SUBROUTINE NFT_Init() 15 16real :: th, fi 17integer :: n 18 19do n = 1,Nangle 20 th = Angle(n,1) 21 fi = Angle(n,2) 22 23 exth(n) = cos(fi)*cos(th) 24 ezth(n) = -sin(th) 25 hxth(n) = -sin(fi) 26 hyth(n) = cos(fi) 27 hyphi(n) = -sin(fi) 28end do 29END SUBROUTINE NFT_Init 30 31END MODULE NFT_mod 32