Skip to content

Commit

Permalink
fixed warnings in pio_support.F90, turned on -Werror for C compiler i…
Browse files Browse the repository at this point in the history
…n travis
  • Loading branch information
edhartnett committed Jun 26, 2019
1 parent 78c88d2 commit d6b6a74
Show file tree
Hide file tree
Showing 2 changed files with 3 additions and 2 deletions.
2 changes: 1 addition & 1 deletion .travis.yml
Original file line number Diff line number Diff line change
Expand Up @@ -36,7 +36,7 @@ env:
- CC=mpicc
- FC=mpif90
- CPPFLAGS='-I/usr/include'
- CFLAGS='-std=c99'
- CFLAGS='-std=c99 -Werror'
- LDFLAGS='-L/usr/lib'

script:
Expand Down
3 changes: 2 additions & 1 deletion src/flib/pio_support.F90
Original file line number Diff line number Diff line change
Expand Up @@ -166,6 +166,7 @@ integer(c_int) function PIOc_writemap_from_f90(file, ndims, gdims, maplen, map,
integer(C_INT), value, intent(in) :: f90_comm
end function PIOc_writemap_from_f90
end interface
if (present(punit)) continue ! to suppress warning
ndims = size(gdims)
err = PIOc_writemap_from_f90(trim(file)//C_NULL_CHAR, ndims, gdims, int(size(dof),C_SIZE_T), dof, comm)

Expand Down Expand Up @@ -207,7 +208,7 @@ integer(C_INT) function PIOc_readmap_from_f90(file, ndims, gdims, maplen, map, f
integer(C_INT), value, intent(in) :: f90_comm
end function PIOc_readmap_from_f90
end interface

if (present(punit)) continue ! to suppress warning
ierr = PIOc_readmap_from_f90(trim(file)//C_NULL_CHAR, ndims, tgdims, maplen, tmap, comm);

call c_f_pointer(tgdims, gdims, (/ndims/))
Expand Down

0 comments on commit d6b6a74

Please sign in to comment.