Skip to content
Snippets Groups Projects

Avoid references to disassociated POINTERs in examples

Merged Sergey Kosukhin requested to merge fix-associated into master
3 files
+ 11
2
Compare changes
  • Side-by-side
  • Inline
Files
3
+ 5
1
@@ -166,7 +166,11 @@ CONTAINS
CALL deallocateTimedelta(mtime_td)
mtime_td => newTimedelta("PT7536.0003S")
CALL timedeltatostring(mtime_td, td_string)
IF (ASSOCIATED(mtime_td)) THEN
CALL timedeltatostring(mtime_td, td_string)
ELSE
td_string = "<null>"
END IF
WRITE (0, *) "PT7536.0003S (expect <null>) = ", TRIM(td_string)
CALL deallocateTimedelta(mtime_td)
Loading