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

From-SVN: r134533

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 3808eb56ff5e9d1749e3a9098d6bc6067a41516e..1d9ca4dd3683b11bfd7d4b25b2e1890e5065f18d 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2008-04-21  Steve Ellcey  <sje@cup.hp.com>
+
+       * f95-lang.c (gfc_init_decl_processing): use ptr_mode instead of Pmode.
+
 2008-04-21  Daniel Franke  <franke.daniel@gmail.com>
 
        PR fortran/35019

diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c
index 4d2e9783af7f46f35a00ff52a5d228382d9658aa..58e31279156b83cf0edab9c78afcc5fa3cdbb01b 100644 (file)
--- a/gcc/fortran/f95-lang.c
+++ b/gcc/fortran/f95-lang.c
@@ -563,9 +563,9 @@ gfc_init_decl_processing (void)
   /* x86_64 minw32 has a sizetype of "unsigned long long", most other hosts
      have a sizetype of "unsigned long". Therefore choose the correct size
      in mostly target independent way.  */
-  if (TYPE_MODE (long_unsigned_type_node) == Pmode)
+  if (TYPE_MODE (long_unsigned_type_node) == ptr_mode)
     set_sizetype (long_unsigned_type_node);
-  else if (TYPE_MODE (long_long_unsigned_type_node) == Pmode)
+  else if (TYPE_MODE (long_long_unsigned_type_node) == ptr_mode)
     set_sizetype (long_long_unsigned_type_node);
   else
     set_sizetype (long_unsigned_type_node);