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

polishing

This commit is contained in:
Sharan Roongta 2020-04-30 21:34:11 +02:00
parent 10710bc446
commit 815608ac42
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/YAML_types.f90
View File

@ -205,10 +205,9 @@ subroutine unitTest
block block
class(tNode), pointer :: l1, l2, n class(tNode), pointer :: l1, l2, n
character(len=1) :: test = '2'
select type(s1) select type(s1)
class is(tScalar) class is(tScalar)
s1 = test s1 = '2'
endselect endselect
select type(s2) select type(s2)