diff --git a/examples/F90/codes_dump.f90 b/examples/F90/codes_dump.f90
index ab547ec04..84f04f668 100644
--- a/examples/F90/codes_dump.f90
+++ b/examples/F90/codes_dump.f90
@@ -21,6 +21,7 @@ program codes_dump_test
 
    call getarg(2, infile_name)
 
+   call codes_set_debug(-1)
    call codes_open_file(ifile, infile_name, 'r')
 
    print *, "===== FILE:", infile_name
@@ -29,7 +30,9 @@ program codes_dump_test
       !call codes_any_new_from_file(ifile, msgid, iret)
       if (iret == CODES_END_OF_FILE) exit
 
+      call codes_set_debug(0)
       call codes_dump(msgid)
+      call codes_set_debug(1)
 
       call codes_release(msgid)