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

Gfortran 8 failed with 

At line 115 of file DAMASK/src/system_routines.f90
Fortran runtime error: Unequal character lengths (93/52) in MERGE intrinsic

not sure whether this is a false alarm or not ...
This commit is contained in:
Martin Diehl 2020-08-09 08:53:10 +02:00
parent 68bf21c900
commit e6f1b17149
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/system_routines.f90
View File

@ -112,9 +112,11 @@ function getCWD()
call getCurrentWorkDir_C(getCWD_Cstring,stat)
getCWD = merge(c_f_string(getCWD_Cstring), &
'Error occured when getting currend working directory', &
stat == 0_C_INT)
if(stat == 0) then
getCWD = c_f_string(getCWD_Cstring)
else
getCWD = 'Error occured when getting currend working directory'
endif
end function getCWD
@ -130,9 +132,11 @@ function getHostName()
call getHostName_C(getHostName_Cstring,stat)
getHostName = merge(c_f_string(getHostName_Cstring), &
'Error occured when getting host name', &
stat == 0_C_INT)
if(stat == 0) then
getHostName = c_f_string(getHostName_Cstring)
else
getHostName = 'Error occured when getting host name'
endif
end function getHostName