Skip to content

Commit 4dbe22c

Browse files
committed
Apply suggestions from code review
Delete unused character.
1 parent 0d6dabc commit 4dbe22c

File tree

2 files changed

+2
-4
lines changed

2 files changed

+2
-4
lines changed

src/stdlib_logger.f90

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -309,7 +309,6 @@ subroutine add_log_unit( self, unit, stat )
309309
character(12) :: specifier
310310
logical :: question
311311
integer :: istat
312-
character(len=80) :: msgtxt
313312

314313
call validate_unit()
315314
if ( present(stat) ) then
@@ -352,7 +351,7 @@ subroutine validate_unit()
352351
end if
353352

354353
! Check that unit is opened
355-
inquire( unit, opened=question, iostat=istat, iomsg=msgtxt )
354+
inquire( unit, opened=question, iostat=istat )
356355
if(istat /= 0) question = .false.
357356
if ( .not. question ) then
358357
if ( present(stat) ) then

src/tests/logger/test_stdlib_logger.f90

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -418,7 +418,6 @@ subroutine test_removing_log_units()
418418

419419
logical :: opened
420420
integer :: istat
421-
character(len=80) :: msgtxt
422421

423422
print *
424423
print *, 'running test_removing_log_units'
@@ -464,7 +463,7 @@ subroutine test_removing_log_units()
464463

465464
end if
466465

467-
inquire( unit4, opened=opened, iostat=istat, iomsg=msgtxt )
466+
inquire( unit4, opened=opened, iostat=istat )
468467
if(istat /= 0) opened = .false.
469468
if ( opened ) then
470469
error stop 'UNIT4 is opened contrary to expectations.'

0 commit comments

Comments
 (0)