gcc8: f951: internal compiler error: in read_module, at fortran/module.c:5169 libbacktrace could not find executable to open

[kshariff786 (Karim Shariff)]

/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