hodgesse1 / rfortran

Automatically exported from code.google.com/p/rfortran
0 stars 0 forks source link

remove redundant TRIM() #100

Open GoogleCodeExporter opened 8 years ago

GoogleCodeExporter commented 8 years ago
On line 171 of MUtilsLib_MessageLog.f90 (r690):

if (present(file) .and. .NOT. msg_log%append) msg_log%file = TRIM(file)

the TRIM() is redundant, and has no effect on the result of the operation 
(other than probably slowing down as it creates a string copy).

The line can be shortened to:

if (present(file) .and. .NOT. msg_log%append) msg_log%file = file

cheers,
d

Original issue reported on code.google.com by dmitri.k...@gmail.com on 23 Jun 2011 at 4:25