[MacPorts] #47182: netcdf-fortran 4.4.2: Seg fault in nf90_get_att

[MacPorts]

#47182: netcdf-fortran 4.4.2: Seg fault in nf90_get_att
-------------------------------------------------+-------------------------
 Reporter:  dave.allured@…                       |      Owner:  macports-
     Type:  defect                               |  tickets@…
 Priority:  Normal                               |     Status:  new
Component:  ports                                |  Milestone:
 Keywords:  netcdf netcdf-fortran nf90_get_att   |    Version:  2.3.3
  nf_get_att nf_get_att_int                      |       Port:  netcdf-
                                                 |  fortran 4.4.2
-------------------------------------------------+-------------------------
 With netcdf-fortran 4.4.2, this program seg faults on the first call to
 nf90_get_att.  The function call is supposed to read a file attribute of
 type integer*2 into a program variable of integer*4.

 My current software configuration is:[[BR]]

 Mac OS X version 10.10.2[[BR]]
 Gfortran version MacPorts gcc49 4.9.2_1[[BR]]
 Netcdf-C version 4.3.3.1 (Mac ports)[[BR]]
 Netcdf-fortran version 4.4.2 (Mac ports)

 {{{
 program test
    use netcdf
    implicit none
    character(*), parameter :: infile  = 'test.nc'
    character(*), parameter :: varname = 'olr'
    character(*), parameter :: attname = 'missing_value'
    integer ncid, varid, status, ival

    print *, 'Netcdf-C version = ' // trim (nf90_inq_libvers())

    print *, 'Call nf90_open.'
    print *, '  Input file = ' // trim (infile)
    status = nf90_open (infile, nf90_nowrite, ncid)
    print '(a,i0)', '   return status = ', status
    if (status /= 0) print *, 'Error stop.'
    if (status /= 0) call exit (1)

    print *, 'Call nf90_inq_varid "' // trim (varname) // '"'
    status = nf90_inq_varid (ncid, varname, varid)
    print '(a,i0)', '   return status = ', status
    if (status /= 0) print *, 'Error stop.'
    if (status /= 0) call exit (1)

    print '(3a,i0)', '   varid for "', trim (varname), '" = ', varid

    print *, 'Call nf90_get_att for '// trim (attname)
    status = nf90_get_att (ncid, varid, attname, ival)
    print '(a,i0)', '   return status = ', status
    print '(a,i0)', '   return value = ', ival

    print *, 'End program.'
 end program test
 }}}

 Compile command:

 {{{
 gfortran -g -fcheck=all -I/opt/local/include -L/opt/local/lib -lnetcdff
 test.get-att.f90
 }}}

 Complete contents of input file, via ncdump:

 {{{
 mac56:~/bugs/netcdf/get-att.4.4 227> ncdump test.nc
 netcdf test {
 dimensions:
         time = 3 ;
 variables:
         short olr(time) ;
                 olr:missing_value = 99s ;
 data:

  olr = 10, 20, 30 ;
 }
 }}}

 Console output of test program:

 {{{
 mac56:~/bugs/netcdf/get-att.4.4 225> ./a.out
  Netcdf-C version = 4.3.3.1 of Mar  9 2015 07:31:25 $
  Call nf90_open.
    Input file = test.nc
    return status = 0
  Call nf90_inq_varid "olr"
    return status = 0
    varid for "olr" = 1
  Call nf90_get_att for missing_value

 Program received signal SIGSEGV: Segmentation fault - invalid memory
 reference.

 Backtrace for this error:
 #0  0x104484fbc
 #1  0x1044854df
 #2  0x7fff8f666f19
 Segmentation fault
 }}}

-- 
Ticket URL: <https://trac.macports.org/ticket/47182>
MacPorts <https://www.macports.org/>
Ports system for OS X