Use gfc_unset_implicit_pure.