223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

avoid segmentation fault (null is returned if not scalar)

This commit is contained in:
Martin Diehl 2022-03-19 23:59:55 +01:00
parent b5d6f2dc83
commit 945b10e3e6
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/IO.f90
View File

@ -498,6 +498,8 @@ subroutine IO_error(error_ID,el,ip,g,instance,ext_msg)
msg = 'Length mismatch' msg = 'Length mismatch'
case (710) case (710)
msg = 'Closing quotation mark missing in string' msg = 'Closing quotation mark missing in string'
case (711)
msg = 'Incorrect type'
!------------------------------------------------------------------------------------------------- !-------------------------------------------------------------------------------------------------
! errors related to the mesh solver ! errors related to the mesh solver

5
src/YAML_types.f90
View File

@ -1218,6 +1218,7 @@ function tList_as1dFloat(self)
item => self%first item => self%first
do i = 1, self%length do i = 1, self%length
scalar => item%node%asScalar() scalar => item%node%asScalar()
if (.not. associated(scalar)) call IO_error(711,ext_msg='float scalar')
tList_as1dFloat(i) = scalar%asFloat() tList_as1dFloat(i) = scalar%asFloat()
item => item%next item => item%next
end do end do
@ -1245,6 +1246,7 @@ function tList_as2dFloat(self)
do i=1,self%length do i=1,self%length
row => self%get(i) row => self%get(i)
row_data => row%asList() row_data => row%asList()
if (.not. associated(row_data)) call IO_error(711,ext_msg='list of floats')
if (row_data%length /= size(tList_as2dFloat,2)) call IO_error(709,ext_msg='Varying number of columns') if (row_data%length /= size(tList_as2dFloat,2)) call IO_error(709,ext_msg='Varying number of columns')
tList_as2dFloat(i,:) = self%get_as1dFloat(i) tList_as2dFloat(i,:) = self%get_as1dFloat(i)
end do end do
@ -1269,6 +1271,7 @@ function tList_as1dInt(self)
item => self%first item => self%first
do i = 1, self%length do i = 1, self%length
scalar => item%node%asScalar() scalar => item%node%asScalar()
if (.not. associated(scalar)) call IO_error(711,ext_msg='int scalar')
tList_as1dInt(i) = scalar%asInt() tList_as1dInt(i) = scalar%asInt()
item => item%next item => item%next
end do end do
@ -1293,6 +1296,7 @@ function tList_as1dBool(self)
item => self%first item => self%first
do i = 1, self%length do i = 1, self%length
scalar => item%node%asScalar() scalar => item%node%asScalar()
if (.not. associated(scalar)) call IO_error(711,ext_msg='bool scalar')
tList_as1dBool(i) = scalar%asBool() tList_as1dBool(i) = scalar%asBool()
item => item%next item => item%next
end do end do
@ -1317,6 +1321,7 @@ function tList_as1dString(self)
item => self%first item => self%first
do i = 1, self%length do i = 1, self%length
scalar => item%node%asScalar() scalar => item%node%asScalar()
if (.not. associated(scalar)) call IO_error(711,ext_msg='string scalar')
len_max = max(len_max, len_trim(scalar%asString())) len_max = max(len_max, len_trim(scalar%asString()))
item => item%next item => item%next
end do end do