https://gcc.gnu.org/bugzilla/show_bug.cgi?id=114304
--- Comment #25 from Richard Biener <rguenth at gcc dot gnu.org> ---
(t_initf) Read in prof_inparm namelist from: drv_in
(shr_sys_abort) ERROR: (T_INITF) :: namelist read returns an error condition
for prof_inparm
(shr_sys_abort) WARNING: calling mpi_abort() and stopping
MPI_Abort: error code = 0
There's code appearantly matching
logical profile_disable
logical profile_barrier
logical profile_single_file
logical profile_global_stats
integer profile_depth_limit
integer profile_detail_limit
integer profile_outpe_num
integer profile_outpe_stride
integer profile_timer
logical profile_papi_enable
namelist /prof_inparm/ profile_disable, profile_barrier, &
profile_single_file, profile_global_stats, &
profile_depth_limit, &
profile_detail_limit, profile_outpe_num, &
profile_outpe_stride, profile_timer, &
profile_papi_enable
...
write(p_logunit,*) '(t_initf) Read in prof_inparm namelist from:
'//trim(NLFilename)
unitn = shr_file_getUnit()
ierr = 1
open( unitn, file=trim(NLFilename), status='old', iostat=ierr )
if (ierr .eq. 0) then
! Look for prof_inparm group name in the input file.
! If found, leave the file positioned at that namelist group.
call find_group_name(unitn, 'prof_inparm', status=ierr)
if (ierr == 0) then ! found prof_inparm
read(unitn, nml=prof_inparm, iostat=ierr)
if (ierr /= 0) then
call shr_sys_abort( subname//':: namelist read returns an'// &
' error condition for prof_inparm' )
and the input file has
&prof_inparm
profile_single_file = .true.
/
&pio_inparm
/
