Skip to content

Commit

Permalink
fixed other test warnings
Browse files Browse the repository at this point in the history
  • Loading branch information
edwardhartnett committed Nov 19, 2023
1 parent c3f22b6 commit 365f4d9
Show file tree
Hide file tree
Showing 2 changed files with 5 additions and 5 deletions.
8 changes: 4 additions & 4 deletions tests/test_gf_unpack2.F90
Original file line number Diff line number Diff line change
Expand Up @@ -7,7 +7,7 @@ program test_gf_unpack2
implicit none

character, dimension(269) :: fgrib
integer :: n1, n2, n3, nan, fgrib_len
integer :: n1, n2, n3, fgrib_len
integer :: iofst, lencsec2, ierr
integer :: numlocal, numfields
integer :: listsec0(3), listsec1(13), maxvals(7)
Expand Down Expand Up @@ -76,8 +76,8 @@ end subroutine gf_unpack2
& char(0), char(0), char(0), char(47), char(5), char(0), &
& char(0), char(0), char(100), char(0), char(2), char(0), &
& char(0), char(0), char(0), char(0), char(0), char(0), &
& char(1), char(8), char(1), char(1), char(1), char(Nan), &
& char(Nan), char(Nan), char(Nan), char(0), char(0), &
& char(1), char(8), char(1), char(1), char(1), char(0), &
& char(0), char(0), char(0), char(0), char(0), &
& char(0), char(0), char(0), char(0), char(0), char(0), &
& char(0), char(0), char(0), char(0), char(0), char(0), &
& char(0), char(0), char(0), char(0), char(0), char(0), &
Expand All @@ -87,7 +87,7 @@ end subroutine gf_unpack2
& char(0), char(0), char(0), char(12), char(7), char(1), &
& char(0), char(0), char(0), char(0), char(0), char(0), &
! section 8
& "7", "7", "7", "7" /)
& "7", "7", "7", "7" /)

print *, ''//NEW_LINE('A')//'Calling grib_info ...'
call gribinfo(fgrib, fgrib_len, listsec0, listsec1, &
Expand Down
2 changes: 1 addition & 1 deletion tests/test_mkieee.F90
Original file line number Diff line number Diff line change
Expand Up @@ -9,7 +9,7 @@ program test_mkieee
#ifdef KIND_4
integer, parameter :: num = 9
real :: rieee(num)
real :: a(num) = (/ real :: 4.3, 5.6, 1.67, 2.33, -4.3, 0.33, 0.0, -400.0, 101029284739847594/)
real :: a(num) = (/ real :: 4.3, 5.6, 1.67, 2.33, -4.3, 0.33, 0.0, -400.0, 101029284739847594.0/)
real :: b(num)
integer :: i

Expand Down

0 comments on commit 365f4d9

Please sign in to comment.