search

NOAA-EMC / NCEPLIBS-bacio

This library performs binary I/O for the NCEP models.
Other
2 stars 6 forks source link

Fortran code warnings #121

Closed edwardhartnett closed 1 year ago

edwardhartnett commented 1 year ago 
[  6%] Building Fortran object src/CMakeFiles/bacio_f.dir/baciof.F90.o
cd /home/ed/NCEPLIBS-bacio/b/src && /usr/bin/gfortran -DLINUX -DUNDERSCORE  -g -fbacktrace -funroll-loops  -Wall -Jinclude -c /home/ed/NCEPLIBS-bacio/src/baciof.F90 -o CMakeFiles/bacio_f.dir/baciof.F90.o
/home/ed/NCEPLIBS-bacio/src/baciof.F90:46:28:

   46 |      integer function baciol(mode, start, size, no, nactual, &
      |                            1
Warning: Variable ‘baciol’ at (1) may not be a C interoperable kind but it is BIND(C) [-Wc-binding-type]
/home/ed/NCEPLIBS-bacio/src/baciof.F90:273:23:

  273 |   integer(kind=8) IB,JB,NB,KA
      |                       1
Warning: Unused variable ‘jb’ declared at (1) [-Wunused-variable]
/home/ed/NCEPLIBS-bacio/src/baciof.F90:122:0:

  122 |        trim(CFN)//c_null_char, A)
      | 
Warning: ‘ib’ may be used uninitialized in this function [-Wmaybe-uninitialized]
/home/ed/NCEPLIBS-bacio/src/baciof.F90:122:0: Warning: ‘nb’ may be used uninitialized in this function [-Wmaybe-uninitialized]
/home/ed/NCEPLIBS-bacio/src/baciof.F90:162:0:

  162 |        trim(CFN)//c_null_char, A)
      | 
Warning: ‘ib’ may be used uninitialized in this function [-Wmaybe-uninitialized]
/home/ed/NCEPLIBS-bacio/src/baciof.F90:162:0: Warning: ‘nb’ may be used uninitialized in this function [-Wmaybe-uninitialized]
/home/ed/NCEPLIBS-bacio/src/baciof.F90:202:0:

  202 |        trim(CFN)//c_null_char, A)
      | 
Warning: ‘ib’ may be used uninitialized in this function [-Wmaybe-uninitialized]
/home/ed/NCEPLIBS-bacio/src/baciof.F90:202:0: Warning: ‘nb’ may be used uninitialized in this function [-Wmaybe-uninitialized]
/home/ed/NCEPLIBS-bacio/src/baciof.F90:242:0:

  242 |        trim(CFN)//c_null_char, A)
      | 
Warning: ‘ib’ may be used uninitialized in this function [-Wmaybe-uninitialized]
/home/ed/NCEPLIBS-bacio/src/baciof.F90:242:0: Warning: ‘nb’ may be used uninitialized in this function [-Wmaybe-uninitialized]
/home/ed/NCEPLIBS-bacio/src/baciof.F90:282:0:

  282 |        trim(CFN)//c_null_char, A)
      | 
Warning: ‘ib’ may be used uninitialized in this function [-Wmaybe-uninitialized]
/home/ed/NCEPLIBS-bacio/src/baciof.F90:282:0: Warning: ‘nb’ may be used uninitialized in this function [-Wmaybe-uninitialized]
/home/ed/NCEPLIBS-bacio/src/baciof.F90:317:0:

  317 |   IRET = BACIOL(BACIO_CLOSE, IB, 1, NB, KA, FD(LU), CHAR(0), A)
      | 
Warning: ‘ib’ may be used uninitialized in this function [-Wmaybe-uninitialized]
/home/ed/NCEPLIBS-bacio/src/baciof.F90:317:0: Warning: ‘nb’ may be used uninitialized in this function [-Wmaybe-uninitialized]