diff --git a/src/framework/mpas_stream_inquiry.F b/src/framework/mpas_stream_inquiry.F index 4a81ead1ad..dd7ffec2eb 100644 --- a/src/framework/mpas_stream_inquiry.F +++ b/src/framework/mpas_stream_inquiry.F @@ -249,7 +249,7 @@ end function query_streams_file call mpas_f_to_c_string(streamname, c_streamname) if (present(attname)) then - allocate(c_attname(len(attname))) + allocate(c_attname(len(attname)+1)) call mpas_f_to_c_string(attname, c_attname) c_attname_ptr = c_loc(c_attname) else