* f95-lang.c (gfc_init_decl_processing): use ptr_mode instead of Pmode.