I cannot write namelist-directed outputs that contain assummed-shape [thanks FortranFan for noticing] arrays. The below minimal example works as indented when compiled with gfortran but fails when compiled with ifortran like:
ifort -O0 -g -check bounds nml_error.f90 -o nml_error
nml_error.f90(16): catastrophic error: **Internal compiler error: internal abort** Please report this error along with the circumstances in which it occurred in a Software Problem Report. Note: File and line given may not be explicit cause of this error.
compilation aborted for nml_error.f90 (code 1)
module mod
implicit none
contains
subroutine namelistWrite(array)
real, dimension(:), intent(in) :: array
integer :: istat
namelist / foo / array
open(unit=16, file='foo.nml', status='replace', action='write',&
form='formatted', delim='apostrophe',iostat=istat)
write(unit=16,nml=foo,iostat=istat)
close(unit=16,status='keep',iostat=istat)
end subroutine namelistWrite
end module mod
program testDriver
use mod
implicit none
real, dimension(3) :: a = (/ 1.0, 2.0, 3.0 /)
call namelistWrite(a)
end program testDriver
