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

View File

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