gcc/testsuite/gfortran.dg/ldist-pr43023.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-O2 -ftree-loop-distribution" }
   3
   4 MODULE NFT_mod
   5
   6 implicit none
   7 integer :: Nangle
   8 real:: Z0
   9 real, dimension(:,:), allocatable :: Angle
  10 real, dimension(:), allocatable :: exth, ezth, hxth, hyth, hyphi
  11
  12 CONTAINS
  13
  14 SUBROUTINE NFT_Init()
  15
  16 real :: th, fi
  17 integer :: n
  18
  19 do 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)
  28 end do
  29 END SUBROUTINE NFT_Init
  30
  31 END MODULE NFT_mod