diff options
| -rw-r--r-- | common/utilities.F90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/common/utilities.F90 b/common/utilities.F90 index 3ba2ff5..f9868be 100644 --- a/common/utilities.F90 +++ b/common/utilities.F90 @@ -129,14 +129,14 @@ contains implicit none integer, intent(in)::unit_number - character, dimension(*), intent(out)::buffer + character, dimension(:), intent(out)::buffer integer::read_into_buffer integer::i, ierr ierr = 0 i = 0 - do while(ierr == 0 .and. i < len(buffer)) + do while(ierr == 0 .and. i < size(buffer)) i = i + 1 read(unit_number, iostat=ierr) buffer(i) end do |