[MacPorts] #64139: gcc8: f951: internal compiler error: in read_module, at fortran/module.c:5169 libbacktrace could not find executable to open (was: f951: internal compiler error: in read_module, at fortran/module.c:5169 libbacktrace could not find executable to open)
MacPorts
noreply at macports.org
Sun Dec 5 08:41:46 UTC 2021
#64139: gcc8: 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:
Resolution: | Keywords:
Port: gcc8 |
--------------------------+--------------------
Changes (by ryandesign):
* port: => gcc8
Old description:
> /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
New description:
{{{
/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#comment:1>
MacPorts <https://www.macports.org/>
Ports system for macOS
More information about the macports-tickets
mailing list