[MacPorts] #64139: f951: internal compiler error: in read_module, at fortran/module.c:5169 libbacktrace could not find executable to open

[MacPorts]

#64139: f951: internal compiler error: in read_module, at fortran/module.c:5169
libbacktrace could not find executable to open
-------------------------+--------------------
 Reporter:  kshariff786  |      Owner:  (none)
     Type:  defect       |     Status:  new
 Priority:  Normal       |  Milestone:
Component:  ports        |    Version:
 Keywords:               |       Port:
-------------------------+--------------------
 /opt/local/bin/gfortran-mp-8 -ffree-line-length-none    -c initarr.f90
 f951: internal compiler error: in read_module, at fortran/module.c:5169
 libbacktrace could not find executable to open
 Please submit a full bug report,
 with preprocessed source if appropriate.
 See <https://trac.macports.org/newticket> for instructions.

 Here is initarr.f90 but I don't know if it is helpful.

 subroutine initarr(first)

   use tts_mod
   use grid_mod
   implicit none

   logical,intent(in) :: first

   integer :: i,id

   if(first) then

      call grid_allocate()

      ! cos(theta) array
      allocate(u(nmu))
      dmu=2.d0/dble(nmu)
      do i=1,nmu
         u(i)=1.d0-dmu*(dble(i)-0.5d0)
         print '("mu_",I0," = ",F10.5)',i,u(i)
      end do

      ! SEDs
      allocate(si(nfreq,nmu,nph,nap,no))
      allocate(sq(nfreq,nmu,nph,nap,no))
      allocate(su(nfreq,nmu,nph,nap,no))
      allocate(sv(nfreq,nmu,nph,nap,no))
      allocate(si_init(nfreq,no_init))

      ! SED uncertainties
      allocate(si2(nfreq,nmu,nph,nap,no))
      allocate(sq2(nfreq,nmu,nph,nap,no))
      allocate(su2(nfreq,nmu,nph,nap,no))
      allocate(sv2(nfreq,nmu,nph,nap,no))

      ! Number of photons in SEDs
      allocate(nums(nfreq,nmu,nph,nap,no))

      ! Other arrays
      ! allocate(aveinc(nfreq,nmu,nph,nap,no))
      allocate(tauenv(nfreq,nmu,nph))

      densarr=0.d0
      densvararr=0.d0
      massarr=0.d0
      sigarr=0.d0
      !tdust2=3.d0/11605.d0
      tdust2=0.1d0/11605.d0
      tdust2dw=0.1d0/11605.d0
      diffdir=0
      diffus=.false.
      nodust=.false.
      vcell=0.d0
      imean=0

   end if

   killed = 0

   dbig=0
   dsg=0
   jmean=0.d0

   si = 0.0
   sq = 0.0
   su = 0.0
   sv = 0.0

   si2 = 0.0
   sq2 = 0.0
   su2 = 0.0
   sv2 = 0.0

   nums = 0.0

   ! aveinc = 0.0

    do id=1,ndg
     where(diffus)
        tdust(:,:,:,id) = 0.1d0/11605.d0
     elsewhere
        tdust(:,:,:,id)=tdust2(:,:,:,id)
     end where
    end do



   nabs=0.d0
   dtauabs=0.d0

 end subroutine initarr

 subroutine initimages()

   use type_nested_image
   use tts_mod
   implicit none

   integer :: peelid
   real :: freq_min,freq_max

   ! SEDs
   ! (n_freq,n_apmax,n_output)

   allocate(ti(nfreq,npeel,nap,no)) ; ti=0.0
   allocate(tq(nfreq,npeel,nap,no)) ; tq=0.0
   allocate(tu(nfreq,npeel,nap,no)) ; tu=0.0
   allocate(tv(nfreq,npeel,nap,no)) ; tv=0.0

   ! SED uncertainties
   ! (n_freq,n_apmax,n_output)

   allocate(ti2(nfreq,npeel,nap,no)) ; ti2=0.0
   allocate(tq2(nfreq,npeel,nap,no)) ; tq2=0.0
   allocate(tu2(nfreq,npeel,nap,no)) ; tu2=0.0
   allocate(tv2(nfreq,npeel,nap,no)) ; tv2=0.0

   allocate(numt(nfreq,npeel,nap,no)) ; numt=0.0

   ! Images - real*8, dimension(npeel,n_x,n_x,n_bands)

   if(output_imfilt) then
      allocate(image_b_i(npeel,nxhst,nxhst,nbnd)) ; image_b_i=0.0
      allocate(image_b_q(npeel,nxhst,nxhst,nbnd)) ; image_b_q=0.0
      allocate(image_b_u(npeel,nxhst,nxhst,nbnd)) ; image_b_u=0.0
      allocate(image_b_v(npeel,nxhst,nxhst,nbnd)) ; image_b_v=0.0
   end if

   ! Monochromatic:

   if(output_imcube) then
   !  allocate(image_m_i(npeel,nxhst,nxhst,nfreqcube)) ; image_m_i=0.0
   !  allocate(image_m_q(npeel,nxhst,nxhst,nfreqcube)) ; image_m_q=0.0
   !  allocate(image_m_u(npeel,nxhst,nxhst,nfreqcube)) ; image_m_u=0.0
   !  allocate(image_m_v(npeel,nxhst,nxhst,nfreqcube)) ; image_m_v=0.0
     allocate(image_m_i(npeel,nxhst,nxhst,nfreq,no)) ; image_m_i=0.0
     allocate(image_m_q(npeel,nxhst,nxhst,nfreq)) ; image_m_q=0.0
     allocate(image_m_u(npeel,nxhst,nxhst,nfreq)) ; image_m_u=0.0
     allocate(image_m_v(npeel,nxhst,nxhst,nfreq)) ; image_m_v=0.0
   end if

   ! Nested images

   if(output_imsparse) then

      allocate(image_ms_i(npeel))
      allocate(image_ms_q(npeel))
      allocate(image_ms_u(npeel))
      allocate(image_ms_v(npeel))

      do peelid=1,npeel
         freq_min = log10(real(numin)*2.9979e14/1.2398e0)
         freq_max = log10(real(numax)*2.9979e14/1.2398e0)
         call
 nested_image_setup(image_ms_i(peelid),sparse_dim,sparse_rmax*real(autors),&
         &sparse_rmin,nfreq,freq_min,freq_max,sparse_factor)
         call
 nested_image_setup(image_ms_q(peelid),sparse_dim,sparse_rmax*real(autors),&
         &sparse_rmin,nfreq,freq_min,freq_max,sparse_factor)
         call
 nested_image_setup(image_ms_u(peelid),sparse_dim,sparse_rmax*real(autors),&
         &sparse_rmin,nfreq,freq_min,freq_max,sparse_factor)
         call
 nested_image_setup(image_ms_v(peelid),sparse_dim,sparse_rmax*real(autors),&
         &sparse_rmin,nfreq,freq_min,freq_max,sparse_factor)
      end do

   end if

 end subroutine initimages

-- 
Ticket URL: <https://trac.macports.org/ticket/64139>
MacPorts <https://www.macports.org/>
Ports system for macOS