; docformat = 'rst'
;+
; Routine marked as obsolete by COMPILE_OPT.
;-
pro mg_obsolete_routine
compile_opt strictarr, obsolete
print, 'Execution reached inside MG_OBSOLETE_ROUTINE'
end
; main-level example
mg_obsolete_routine
print, 'Execution reached past MG_OBSOLETE_ROUTINE'
end