ifx bug #2

Author: perazz

src/fitpack_core.f90

@@ -12815,7 +12815,8 @@ subroutine fpsphe(iopt,m,teta,phi,r,w,s,ntest,npest,eta,tol,maxit, &
                   if (j>1 .and. j<nt6) then
                       h(1:npp) = row(1:npp)
                   else
-                      h(1:2) = [facc,facs]
+                      h(1) = facc 
+                      h(2) = facs
                       if(j==1) jrot = 2
                   endif